Implement client routing

3 files changed, 37 insertions, 12 deletions

diff --git a/server/src/Design/View/Header.hs b/server/src/Design/View/Header.hs
index 2422686..59e0e51 100644
--- a/server/src/Design/View/Header.hs
+++ b/server/src/Design/View/Header.hs
@@ -40,8 +40,11 @@ design = do
     ".current" & backgroundColor (Color.chestnutRose -. 20)
     Media.mobile $ fontSize (px 13)
 
-  (".item" # hover) <> (".item" # focus) ? backgroundColor (Color.chestnutRose +. 10)
-  (".item.current" # hover) <> (".item.current" # focus) ? backgroundColor (Color.chestnutRose -. 10)
+  (".item" # hover) <> (".item" # focus) ?
+    backgroundColor (Color.chestnutRose +. 10)
+
+  (".item.current" # hover) <> (".item.current" # focus) ?
+    backgroundColor (Color.chestnutRose -. 10)
 
   ".nameSignOut" ? do
     display flex
diff --git a/server/src/Design/View/NotFound.hs b/server/src/Design/View/NotFound.hs
new file mode 100644
index 0000000..150c6fc
--- /dev/null
+++ b/server/src/Design/View/NotFound.hs
@@ -0,0 +1,21 @@
+module Design.View.NotFound
+  ( design
+  ) where
+
+import           Clay
+import           Prelude      hiding (rem)
+
+import qualified Design.Color as Color
+
+design :: Css
+design = do
+
+  marginLeft (rem 3)
+
+  ".link" ? do
+    display block
+    marginTop (rem 1)
+    color Color.chestnutRose
+    textDecoration underline
+    hover &
+      color (Color.chestnutRose +. 15)
diff --git a/server/src/Design/Views.hs b/server/src/Design/Views.hs
index b9e3cf8..bf39cff 100644
--- a/server/src/Design/Views.hs
+++ b/server/src/Design/Views.hs
@@ -4,16 +4,16 @@ module Design.Views
 
 import           Clay
 
-import qualified Design.View.Header  as Header
-import qualified Design.View.Payment as Payment
-import qualified Design.View.SignIn  as SignIn
-import qualified Design.View.Stat    as Stat
-import qualified Design.View.Table   as Table
-
-import qualified Design.Color        as Color
-import qualified Design.Constants    as Constants
-import qualified Design.Helper       as Helper
-import qualified Design.Media        as Media
+import qualified Design.Color         as Color
+import qualified Design.Constants     as Constants
+import qualified Design.Helper        as Helper
+import qualified Design.Media         as Media
+import qualified Design.View.Header   as Header
+import qualified Design.View.NotFound as NotFound
+import qualified Design.View.Payment  as Payment
+import qualified Design.View.SignIn   as SignIn
+import qualified Design.View.Stat     as Stat
+import qualified Design.View.Table    as Table
 
 design :: Css
 design = do
@@ -21,6 +21,7 @@ design = do
   ".payment" ? Payment.design
   ".signIn" ? SignIn.design
   ".stat" ? Stat.design
+  ".notfound" ? NotFound.design
   Table.design
 
   ".withMargin" ? do