From 3b8b3d234e1fbeff4fd250788f8d1969268cf740 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 8 Feb 2014 08:43:20 -0800
Subject: [PATCH] web: work around build failures on new OS X/xcode 5 related
 to clang

---
 hledger-web/Handler/Common.hs | 12 ++++++------
 hledger-web/Handler/Post.hs   |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

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