inline-c 0.5.5.4 → 0.5.5.5

raw patch · 3 files changed

+5/−16 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• inline-c.cabal +1/−1
• src/Language/C/Inline/Internal.hs +2/−8
• test/tests.c +2/−7

@@ -1,5 +1,5 @@ name:                inline-c-version:             0.5.5.4+version:             0.5.5.5 synopsis:            Write Haskell source files including C code inline. No FFI required. description:         See <https://github.com/fpco/inline-c/blob/master/README.md>. license:             MIT

@@ -532,14 +532,8 @@       case parTy of         Plain s' -> do           hsTy <- cToHs ctx cTy-          mbHsName <- TH.lookupValueName $ unHaskellIdentifier s'-          hsExp <- case mbHsName of-            Nothing -> do-              fail $ "Cannot capture Haskell variable " ++ unHaskellIdentifier s' ++-                     ", because it's not in scope. (genericQuote)"-            Just hsName -> do-              hsExp <- TH.varE hsName-              [| \cont -> cont ($(return hsExp) :: $(return hsTy)) |]+          let hsName = TH.mkName (unHaskellIdentifier s')+          hsExp <- [| \cont -> cont ($(TH.varE hsName) :: $(return hsTy)) |]           return (hsTy, hsExp)         AntiQuote antiId dyn -> do           case Map.lookup antiId (ctxAntiQuoters ctx) of

@@ -146,12 +146,7 @@ }  -int inline_c_Main_22_dbf060cb8fa2b86c6c6838ef9b645ac20f38ba79(int _e4_inline_c_0) {-return ( _e4_inline_c_0 );-}---int inline_c_Main_23_2421969c444755bea2c6f2060e0921ce7f3d16d7(int PreludemaxBound_2e_inline_c_0) {-return ( PreludemaxBound_2e_inline_c_0 );+int inline_c_Main_22_a3bae806835fddf243d045e57f2ba979bc7961cc(int foobar_inline_c_0) {+return ( foobar_inline_c_0 ); }