improve error message (it's still rubbish though)

2024-11-03 18:47:45 +00:00 · 2024-11-03 18:47:45 +00:00 · 5f162a95bc
commit 5f162a95bc
parent 1b8293f93e
1 changed files with 11 additions and 9 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -104,15 +104,17 @@ postUploadR = do
          defaultLayout [whamlet|<p>#{List.length points} points - thanks!|]
        Left e ->
          defaultLayout
-            [whamlet|<p>error ]
-        FormMissing  ->
-          traceShow "missing" $
-          defaultLayout [whamlet|<p>missing|]
-    FormFailure x ->
-      traceShow x $
-        defaultLayout
-          [whamlet|
-                <p>Nope, sorry
+            [whamlet|<p>parse error ]
+    FormMissing ->
+        defaultLayout [whamlet|<p>FormMissing  (?)|]
+    FormFailure errors ->
+      defaultLayout
+        [whamlet|
+                 <h1>Error uploading
+                 <ul>
+                     $forall err <- errors
+                         <li>#{err}
+
            |]

 main :: IO ()