@@ -1,3 +1,4 @@
1+{-# LANGUAGE ConstraintKinds #-}
12{-# LANGUAGE CPP #-}
23{-# LANGUAGE DataKinds #-}
34{-# LANGUAGE DefaultSignatures #-}
@@ -75,7 +76,7 @@ import Web.Internal.HttpApiData
7576-- >>> instance FromForm Person
7677--
7778-- >>> data Project = Project { projectName :: String, projectSize :: Int } deriving (Generic, Show)
78−-- >>> myOptions = FormOptions { fieldLabelModifier = map toLower . drop (length ("project" :: String)) }
79+-- >>> let myOptions = FormOptions { fieldLabelModifier = map toLower . drop (length ("project" :: String)) }
7980-- >>> instance ToForm Project where toForm = genericToForm myOptions
8081-- >>> instance FromForm Project where fromForm = genericFromForm myOptions
8182