slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: work around build failures on new OS X/xcode 5 related to clang

Browse Source
This commit is contained in:
Simon Michael 2014-02-08 08:43:20 -08:00
parent 53b534e647
commit 3b8b3d234e
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hledger-web/Handler/Common.hs
View File

@ -37,7 +37,7 @@ topbar VD{..} = [hamlet|
<a.topleftlink href=#{hledgerorgurl} title="More about hledger"> <a.topleftlink href=#{hledgerorgurl} title="More about hledger">
hledger-web hledger-web
<br /> <br />
#{version} \#{version}
<a.toprightlink href=#{manualurl} target=hledgerhelp title="User manual">manual <a.toprightlink href=#{manualurl} target=hledgerhelp title="User manual">manual
<h1>#{title} <h1>#{title}
$maybe m' <- msg $maybe m' <- msg
@ -233,7 +233,7 @@ editform VD{..} = [hamlet|
<!-- XXX textarea ids are unquoted journal file paths here, not valid html --> <!-- XXX textarea ids are unquoted journal file paths here, not valid html -->
$forall f <- files j $forall f <- files j
<textarea id=#{fst f}_textarea name=text rows=25 cols=80 style=display:none; disabled=disabled> <textarea id=#{fst f}_textarea name=text rows=25 cols=80 style=display:none; disabled=disabled>
#{snd f} \#{snd f}
<tr#addbuttonrow> <tr#addbuttonrow>
<td> <td>
<span.help>^{formathelp} <span.help>^{formathelp}
@ -333,7 +333,7 @@ balanceReportAsHtml _ vd@VD{..} (items',total) =
itemAsHtml _ (acct, adisplay, aindent, abal) = [hamlet| itemAsHtml _ (acct, adisplay, aindent, abal) = [hamlet|
<tr.item.#{inacctclass}> <tr.item.#{inacctclass}>
<td.account.#{depthclass}> <td.account.#{depthclass}>
#{indent} \#{indent}
<a href="@?{acctquery}" title="Show transactions in this account, including subaccounts">#{adisplay} <a href="@?{acctquery}" title="Show transactions in this account, including subaccounts">#{adisplay}
<span.hoverlinks> <span.hoverlinks>
$if hassubs $if hassubs
@ -405,7 +405,7 @@ journalTransactionsReportAsHtml _ vd (_,items) = [hamlet|
<td.description colspan=2>#{elideRight 60 desc} <td.description colspan=2>#{elideRight 60 desc}
<td.amount align=right> <td.amount align=right>
$if showamt $if showamt
#{mixedAmountAsHtml amt} \#{mixedAmountAsHtml amt}
$forall p' <- tpostings t $forall p' <- tpostings t
<tr.item.#{evenodd}.posting> <tr.item.#{evenodd}.posting>
<td.date> <td.date>
@ -455,13 +455,13 @@ registerItemsHtml _ vd (balancelabel,items) = [hamlet|
<td.description title="#{show t}">#{elideRight 30 desc} <td.description title="#{show t}">#{elideRight 30 desc}
<td.account title="#{show t}"> <td.account title="#{show t}">
<a> <a>
#{elideRight 40 acct} \#{elideRight 40 acct}
&nbsp; &nbsp;
<a.postings-toggle-link.togglelink href="#" title="Toggle all postings"> <a.postings-toggle-link.togglelink href="#" title="Toggle all postings">
[+] [+]
<td.amount align=right> <td.amount align=right>
$if showamt $if showamt
#{mixedAmountAsHtml amt} \#{mixedAmountAsHtml amt}
<td.balance align=right>#{mixedAmountAsHtml bal} <td.balance align=right>#{mixedAmountAsHtml bal}
$forall p' <- tpostings t $forall p' <- tpostings t
<tr.item.#{evenodd}.posting style=#{postingsdisplaystyle}> <tr.item.#{evenodd}.posting style=#{postingsdisplaystyle}>

2
hledger-web/Handler/Post.hs
View File

@ -79,7 +79,7 @@ handleAdd = do
setMessage [shamlet| setMessage [shamlet|
Errors:<br> Errors:<br>
$forall e<-errs' $forall e<-errs'
#{e}<br> \#{e}<br>
|] |]
Right t -> do Right t -> do
let t' = txnTieKnot t -- XXX move into balanceTransaction let t' = txnTieKnot t -- XXX move into balanceTransaction