Remove an extra backslash

This commit is contained in:
Satoshi Nakamura 2014-03-17 19:35:51 +09:00
parent c5f9a2d5b2
commit 09caea1e49

View File

@ -334,7 +334,7 @@ searchField :: Monad m => RenderMessage (HandlerSite m) FormMessage => AutoFocus
searchField autoFocus = Field
{ fieldParse = parseHelper Right
, fieldView = \theId name attrs val isReq -> do
[whamlet|\
[whamlet|
$newline never
<input id="#{theId}" name="#{name}" *{attrs} type="search" :isReq:required="" :autoFocus:autofocus="" value="#{either id id val}">
|]