Fix haddock for FromForm (fix #39)

fizruk · Nov 14, 2016 · 008cbc8 · 008cbc8
1 parent fbde28b
commit 008cbc8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Web/Internal/FormUrlEncoded.hs b/src/Web/Internal/FormUrlEncoded.hs
@@ -355,9 +355,9 @@ instance NotSupported ToForm t "is a sum type" => GToForm t (f :+: g) where gToF
 --   , age  :: Int }
 --
 -- instance 'FromForm' Person where
---   'fromForm' (Form m) = Person
---     '<$>' 'parseUnique' "name" m
---     '<*>' 'parseUnique' "age"  m
+--   'fromForm' f = Person
+--     '<$>' 'parseUnique' "name" f
+--     '<*>' 'parseUnique' "age"  f
 -- @
 --
 -- Instead of manually writing @'FromForm'@ instances you can