From 93d85e3eaeec484bad5c2b089a62e6b19301060d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20S=C3=BC=C3=9F?= <dominik.suess@outlook.at>
Date: Fri, 21 Oct 2016 19:58:52 +0200
Subject: [PATCH] Removed artifacts of conversion

---
 hledger-web/Foundation.hs       | 1 -
 hledger-web/Handler/Common.hs   | 5 +----
 hledger-web/Handler/JournalR.hs | 4 ++--
 3 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs
index 0a68f60a4..6e31774cd 100644
--- a/hledger-web/Foundation.hs
+++ b/hledger-web/Foundation.hs
@@ -379,7 +379,6 @@ addform _ vd@VD{..} = [hamlet|
   <input ##{amtvar} .amount-input .form-control .input-lg type=text name=#{amtvar} placeholder="#{amtph}">
 |]
    where
-    islast = n == numpostings
     acctvar = "account" ++ show n
     acctph = "Account " ++ show n
     amtvar = "amount" ++ show n
diff --git a/hledger-web/Handler/Common.hs b/hledger-web/Handler/Common.hs
index cfdcade38..0cf0fa62e 100644
--- a/hledger-web/Handler/Common.hs
+++ b/hledger-web/Handler/Common.hs
@@ -47,7 +47,7 @@ topbar VD{..} = [hamlet|
 <div#spacer .col-md-4 .col-sm-4 .col-xs-2>
  <h1>
   <button .visible-xs .btn .btn-default type="button" data-toggle="offcanvas">
-   <span .glyphicon .glyphicon-align-left .tgl-icon>
+   <span .glyphicon .glyphicon-abootstrap link buttonlign-left .tgl-icon>
 <div#topbar .col-md-8 .col-sm-8 .col-xs-10>
  <h1>#{title}
 
@@ -190,9 +190,6 @@ balanceReportAsHtml _ vd@VD{..} (items',total) =
 |]
      where
        hassubs = not $ maybe False (null.asubs) $ ledgerAccount l acct
- -- <td.numpostings title="#{numpostings} transactions in this account">(#{numpostings})
-       -- numpostings = maybe 0 (length.apostings) $ ledgerAccount l acct
-       depthclass = "depth"++show aindent
        inacctclass = case inacctmatcher of
                        Just m' -> if m' `matchesAccount` acct then "inacct" else ""
                        Nothing -> "" :: String
diff --git a/hledger-web/Handler/JournalR.hs b/hledger-web/Handler/JournalR.hs
index 300e577c7..22f4649b6 100644
--- a/hledger-web/Handler/JournalR.hs
+++ b/hledger-web/Handler/JournalR.hs
@@ -61,7 +61,7 @@ journalTransactionsReportAsHtml _ vd (_,items) = [hamlet|
  where
 -- .#{datetransition}
    itemAsHtml :: ViewData -> (Int, Bool, Bool, Bool, TransactionsReportItem) -> HtmlUrl AppRoute
-   itemAsHtml VD{..} (n, _, _, _, (torig, _, split, _, amt, _)) = [hamlet|
+   itemAsHtml VD{..} (_, _, _, _, (torig, _, split, _, amt, _)) = [hamlet|
 <tr .title #transaction-#{tindex torig}>
  <td .date>#{date}
  <td .description colspan=2>#{textElideRight 60 desc}
@@ -82,7 +82,7 @@ $forall p' <- tpostings torig
        -- datetransition | newm = "newmonth"
        --                | newd = "newday"
        --                | otherwise = "" :: String
-       (firstposting, date, desc) = (False, show $ tdate torig, tdescription torig)
+       (date, desc) = (show $ tdate torig, tdescription torig)
        -- acctquery = (here, [("q", T.pack $ accountQuery acct)])
        showamt = not split || not (isZeroMixedAmount amt)