diff --git a/hledger-web/Hledger/Web/Handler/AddR.hs b/hledger-web/Hledger/Web/Handler/AddR.hs index 9ec4a8d81..80ac72f68 100644 --- a/hledger-web/Hledger/Web/Handler/AddR.hs +++ b/hledger-web/Hledger/Web/Handler/AddR.hs @@ -51,7 +51,7 @@ postAddR = do sendResponse =<< defaultLayout [whamlet|

Add transaction
- + ^{view} |] diff --git a/hledger-web/templates/add-form.hamlet b/hledger-web/templates/add-form.hamlet index 3b3cff63c..bc2a2ad4f 100644 --- a/hledger-web/templates/add-form.hamlet +++ b/hledger-web/templates/add-form.hamlet @@ -21,40 +21,36 @@ }); ^{extra} -
-
-
-
- ^{fvInput dateView} -
- - $maybe err <- fvErrors dateView - #{err} -
-
- ^{fvInput descView} - $maybe err <- fvErrors descView - #{err} -
-
-
+
+
+
+ ^{fvInput dateView} +
+ + $maybe err <- fvErrors dateView + #{err} +
+
+ ^{fvInput descView} + $maybe err <- fvErrors descView + #{err}
$forall (n, (acc, amt, accE, amtE)) <- displayRows -
-
+
+
$maybe err <- accE _{err} -
+
$maybe err <- amtE _{err}
-
+
$if length files > 1 Add to:   @@ -62,5 +58,5 @@ ^{fvInput fileView} $maybe err <- fvErrors fileView #{err} -
-