mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build with older version of yessod

Browse source 
Old yesod's hamlet parser does not understand f@(Data ...) syntax,
work around this.
This commit is contained in:
Joey Hess 2014-05-18 11:17:05 -04:00
parent b5419a4d97
commit c0e7aeccd7
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Assistant/WebApp/Bootstrap3.hs
View file

@ -177,14 +177,14 @@ renderBootstrap3 formLayout aform fragment = do
<label .sr-only for=#{fvId view}>#{fvLabel view} <label .sr-only for=#{fvId view}>#{fvLabel view}
^{fvInput view} ^{fvInput view}
^{helpWidget view} ^{helpWidget view}
$of f@(BootstrapHorizontalForm _ _ _ _) $of BootstrapHorizontalForm _ _ _ _
$if nequals (fvId view) bootstrapSubmitId $if nequals (fvId view) bootstrapSubmitId
<label .control-label .#{toOffset (bflLabelOffset f)} .#{toColumn (bflLabelSize f)} for=#{fvId view}>#{fvLabel view} <label .control-label .#{toOffset (bflLabelOffset formLayout)} .#{toColumn (bflLabelSize formLayout)} for=#{fvId view}>#{fvLabel view}
<div .#{toOffset (bflInputOffset f)} .#{toColumn (bflInputSize f)}> <div .#{toOffset (bflInputOffset formLayout)} .#{toColumn (bflInputSize formLayout)}>
^{fvInput view} ^{fvInput view}
^{helpWidget view} ^{helpWidget view}
$else $else
<div .#{toOffset (addGO (bflInputOffset f) (addGO (bflLabelOffset f) (bflLabelSize f)))} .#{toColumn (bflInputSize f)}> <div .#{toOffset (addGO (bflInputOffset formLayout) (addGO (bflLabelOffset formLayout) (bflLabelSize formLayout)))} .#{toColumn (bflInputSize formLayout)}>
^{fvInput view} ^{fvInput view}
^{helpWidget view} ^{helpWidget view}
|] |]