web: fix build failures caught by the bot

hledger-web/Handler/Common.hs

@@ -330,7 +330,7 @@ balanceReportAsHtml _ vd@VD{..} (items',total) =
    allaccts = isNothing inacctmatcher
    items = items' -- maybe items' (\m -> filter (matchesAccount m . \(a,_,_,_)->a) items') showacctmatcher
    itemAsHtml :: ViewData -> BalanceReportItem -> HtmlUrl AppRoute
-   itemAsHtml _ (acct, adisplay, aindent, abal) = [hamlet|
+   itemAsHtml _ ((acct, adisplay, aindent), abal) = [hamlet|
 <tr.item.#{inacctclass}>
  <td.account.#{depthclass}>
   \#{indent}

hledger/Hledger/Cli/Add.hs

@@ -221,7 +221,7 @@ accountWizard EntryState{..} = do
    withCompletion (accountCompleter esJournal def) $
    defaultTo' def $ -- nonEmpty $ 
    maybeRestartTransaction $
-   line $ green $ printf "Account %d%s%s: " pnum endmsg (showDefault def)
+   line $ green $ printf "Account %d%s%s: " pnum (endmsg::String) (showDefault def)
     where
       canfinish = not (null esPostings) && postingsBalanced esPostings
       parseAccountOrDotOrNull _  _ "."       = dbg $ Just "." -- . always signals end of txn