Removed artifacts of conversion

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

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

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)