haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix a bug in IsString instance of FieldSettings

Browse Source
This commit is contained in:
Michael Snoyman 2012-03-28 07:41:49 +02:00
parent 4cc933b21a
commit 9b9a3ad605
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-form/Yesod/Form/Types.hs
View File

@ -102,7 +102,7 @@ data FieldSettings master = FieldSettings
, fsAttrs :: [(Text, Text)] , fsAttrs :: [(Text, Text)]
} }
instance (a ~ Text) => IsString (FieldSettings a) where instance IsString (FieldSettings a) where
fromString s = FieldSettings (fromString s) Nothing Nothing Nothing [] fromString s = FieldSettings (fromString s) Nothing Nothing Nothing []
data FieldView sub master = FieldView data FieldView sub master = FieldView

3
yesod-form/hello-forms.hs
View File

@ -39,8 +39,7 @@ data HelloForms = HelloForms
instance RenderMessage HelloForms FormMessage where instance RenderMessage HelloForms FormMessage where
renderMessage _ _ = defaultFormMessage renderMessage _ _ = defaultFormMessage
instance Yesod HelloForms where instance Yesod HelloForms
approot _ = ""
fixType :: Handler a -> Handler a fixType :: Handler a -> Handler a
fixType = id fixType = id