HTML for ServerError; drop mock database effect handler

src/Views.hs

@@ -32,3 +32,10 @@ userHtml user = div_ [] $ do
 
 warning :: String -> Html ()
 warning s = p_ [class_ "warning"] (toHtml s)
+
+internalServerError :: Html ()
+internalServerError = baseDoc $ do
+  div_ [ style_ "text-align: center; margin: 3% 0 0 0;" ] $ do
+    h1_ "500 INTERNAL SERVER ERROR"
+    p_  "This issue is probably our fault. \
+       \ Please try again shortly or contact us for help."