diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs index a3e84c6cf..fa67ac502 100644 --- a/hledger-web/Foundation.hs +++ b/hledger-web/Foundation.hs @@ -280,64 +280,44 @@ getMessageOr mnewmsg = do -- | Add transaction form. addform :: Text -> ViewData -> HtmlUrl AppRoute addform _ vd@VD{..} = [hamlet| +