Fix all routes because they all were broken

src/Guide/Routes.hs

@@ -1,44 +1,48 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE DataKinds #-}
 
-module Guide.Routes
-  ( addRoute
-  , adminRoute
-  , authRoute
-  , deleteRoute
-  , haskellRoute
-  , feedRoute
-  , moveRoute
-  , renderRoute
-  , setRoute
-  ) where
 
-import Web.Spock (Path)
+module Guide.Routes
+(
+  addRoute,
+  adminRoute,
+  authRoute,
+  deleteRoute,
+  haskellRoute,
+  feedRoute,
+  moveRoute,
+  renderRoute,
+  setRoute,
+) where
+
+
+import Web.Spock (Path, (<//>))
 import Web.Routing.Combinators (PathState(Open))
 
+
 haskellRoute :: Path '[] 'Open
 haskellRoute = "haskell"
 
 authRoute :: Path '[] 'Open
-authRoute = "auth"
+authRoute = haskellRoute <//> "auth"
 
 setRoute :: Path '[] 'Open
-setRoute = "set"
+setRoute = haskellRoute <//> "set"
 
 addRoute :: Path '[] 'Open
-addRoute = "add"
+addRoute = haskellRoute <//> "add"
 
 moveRoute :: Path '[] 'Open
-moveRoute = "move"
+moveRoute = haskellRoute <//> "move"
 
 deleteRoute :: Path '[] 'Open
-deleteRoute = "delete"
+deleteRoute = haskellRoute <//> "delete"
 
 feedRoute :: Path '[] 'Open
-feedRoute = "feed"
+feedRoute = haskellRoute <//> "feed"
 
 renderRoute :: Path '[] 'Open
-renderRoute = "render"
+renderRoute = haskellRoute <//> "render"
 
 adminRoute :: Path '[] 'Open
-adminRoute = "admin"
+adminRoute = haskellRoute <//> "admin"