From 5f162a95bc1792428b5125ef3551f1ec10f839e5 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Sun, 3 Nov 2024 18:47:45 +0000
Subject: [PATCH] improve error message (it's still rubbish though)

---
 app/Main.hs | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 778d3c1..bf29893 100644
--- 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 ()