Commits

Bryan O'Sullivan committed 6530ba2 Merge

Merge

  • Participants
  • Parent commits 2e86bd1, e247951

Comments (0)

Files changed (1)

File Data/Aeson/TH.hs

 
 instance 'ToJSON' a => 'ToJSON' (D a) where
     'toJSON' =
-      \value ->
+      \\value ->
         case value of
           Nullary ->
               'object' [T.pack \"Nullary\" .= 'toJSON' ([] :: [()])]
 @
 instance 'FromJSON' a => 'FromJSON' (D a) where
     'parseJSON' =
-      \value ->
+      \\value ->
         case value of
           'Object' obj ->
             case H.toList obj of
 -- @
 -- instance 'ToJSON' Foo where
 --      'toJSON' =
---          \value -> case value of
+--          \\value -> case value of
 --                      Foo arg1 arg2 -> 'Array' $ 'V.create' $ do
 --                        mv <- 'VM.unsafeNew' 2
 --                        'VM.unsafeWrite' mv 0 ('toJSON' arg1)
 -- This will splice in the following code:
 --
 -- @
--- \value -> case value of Foo arg1 -> 'toJSON' arg1
+-- \\value -> case value of Foo arg1 -> 'toJSON' arg1
 -- @
 mkToJSON :: (String -> String) -- ^ Function to change field names.
          -> Name -- ^ Name of the type to encode.
 -- @
 -- instance 'FromJSON' Foo where
 --     'parseJSON' =
---         \value -> case value of
+--         \\value -> case value of
 --                     'Array' arr ->
 --                       if (V.length arr == 2)
 --                       then Foo \<$\> 'parseJSON' (arr `V.unsafeIndex` 0)