language-c-inline 0.7.6.0 → 0.7.6.1

raw patch · 3 files changed

+13/−8 lines, 3 files

Files

• Language/C/Inline/Hint.hs +5/−2
• language-c-inline.cabal +1/−1
• tests/objc/concept/TestInlineObjC.hs +7/−5

@@ -36,9 +36,12 @@  -- |Annotating entities with hints. --+-- The alternatives are to provide an explicit marshalling hint with '(:>)', or to leave the marshalling+-- implicitly defined by the name's type.+-- data Annotated e where-  (:>)  :: Hint hint => e    -> hint -> Annotated e         -- ^explicit marshalling hint-  Typed ::              Name         -> Annotated Name      -- ^marshalling implicitly defined by name's type+  (:>)  :: Hint hint => e    -> hint -> Annotated e         -- explicit marshalling hint+  Typed ::              Name         -> Annotated Name      -- marshalling implicitly defined by name's type  -- |We provide additional syntax where the hint is to the left of the annotated entity. --

@@ -1,5 +1,5 @@ Name:                   language-c-inline-Version:                0.7.6.0+Version:                0.7.6.1 Cabal-version:          >= 1.9.2 Tested-with:            GHC == 7.6.3, GHC == 7.8.2 Build-type:             Simple

@@ -11,11 +11,13 @@ dumpURL :: String -> IO () dumpURL urlString   = do-    { urlData <- $(objc ['urlString :> ''String] $ ''String <: [cexp| -                   [NSString stringWithContentsOfURL:[NSURL URLWithString:urlString]-                             encoding:NSUTF8StringEncoding -                             error:NULL] -                 |])+    { urlData <- +        $(objc ['urlString :> ''String] $ ''String <:+          [cexp| +            [NSString stringWithContentsOfURL:[NSURL URLWithString:urlString]+                                     encoding:NSUTF8StringEncoding +                                        error:NULL] +          |])     ; putStr urlData     }