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 ()