@@ -46,7 +46,7 @@ import qualified Data.Vector as V
4646
4747instance 'ToJSON' a => 'ToJSON' (D a) where
4848 'toJSON' =
49− \value ->
49+ \\value ->
5050 case value of
5151 Nullary ->
5252 'object' [T.pack \"Nullary\" .= 'toJSON' ([] :: [()])]
@@ -73,7 +73,7 @@ instance 'ToJSON' a => 'ToJSON' (D a) where
7373@
7474instance 'FromJSON' a => 'FromJSON' (D a) where
7575 'parseJSON' =
76− \value ->
76+ \\value ->
7777 case value of
7878 'Object' obj ->
7979 case H.toList obj of
@@ -234,7 +234,7 @@ The above (ToJSON a) constraint is not necessary and perhaps undesirable.
234234-- @
235235-- instance 'ToJSON' Foo where
236236-- 'toJSON' =
237−-- \value -> case value of
237+-- \\value -> case value of
238238-- Foo arg1 arg2 -> 'Array' $ 'V.create' $ do
239239-- mv <- 'VM.unsafeNew' 2
240240-- 'VM.unsafeWrite' mv 0 ('toJSON' arg1)
@@ -281,7 +281,7 @@ deriveToJSON withField name =
281281-- This will splice in the following code:
282282--
283283-- @
284−-- \value -> case value of Foo arg1 -> 'toJSON' arg1
284+-- \\value -> case value of Foo arg1 -> 'toJSON' arg1
285285-- @
286286mkToJSON :: (String -> String) -- ^ Function to change field names.
287287 -> Name -- ^ Name of the type to encode.
@@ -406,7 +406,7 @@ encodeArgs withExp withField (ForallC _ _ con) =
406406-- @
407407-- instance 'FromJSON' Foo where
408408-- 'parseJSON' =
409−-- \value -> case value of
409+-- \\value -> case value of
410410-- 'Array' arr ->
411411-- if (V.length arr == 2)
412412-- then Foo \<$\> 'parseJSON' (arr `V.unsafeIndex` 0)