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

Fix selectField selected attr

Browse Source
This commit is contained in:
Michael Snoyman 2011-05-18 11:26:20 +03:00
parent 87535d468b
commit 7a9f7cf798
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Form/Fields.hs
View File

@ -295,7 +295,7 @@ selectField opts = Field -- FIXME won't work for optional yet
$if not isReq $if not isReq
<option value=none> <option value=none>
$forall pair <- pairs $forall pair <- pairs
<option value=#{show $ fst pair} :(==) val (fst $ snd pair):selected>#{fst $ snd pair} <option value=#{show $ fst pair} :(==) val (pack $ show $ fst pair):selected>#{fst $ snd pair}
|] |]
} }
where where