Add 404 error page
commit13a307023d247f30fb44fb5f2aebc91bb0939537
authorandys8 <andys8@users.noreply.github.com>
dateMon 29 Aug 2022, 14:33 (4 years ago)
parent20c6b36
pages/404.jsnew file+3
@@ -0,0 +1,3 @@
1+import { mkError } from "../output/Pages.Error/index.js";
2+
3+export default mkError("Page not found");
src/Pages/Error.pursnew file+12
@@ -0,0 +1,12 @@
1+module Pages.Error (mkError) where
2+
3+import Prelude
4+
5+import Components.Page as Page
6+import React.Basic.DOM as R
7+
8+mkError :: String -> Page.Component Unit
9+mkError msg = do
10+ Page.component "Error" \_ _ -> pure render
11+ where
12+ render = R.h1_ [ R.text msg ]