From 270123cc18ee8acff4b2819f4a609045bd5194f5 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jan.tuomi@valuemotive.com>
Date: Thu, 4 Nov 2021 18:06:11 +0200
Subject: Add navigation and profile

---
 src/Routes.elm | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 src/Routes.elm

(limited to 'src/Routes.elm')

diff --git a/src/Routes.elm b/src/Routes.elm
new file mode 100644
index 0000000..04c7eb1
--- /dev/null
+++ b/src/Routes.elm
@@ -0,0 +1,12 @@
+module Routes exposing (..)
+
+import Types exposing (Route(..))
+import Url.Parser exposing ((</>), Parser, oneOf, s, string, top)
+
+
+routeParser : Parser (Route -> a) a
+routeParser =
+    oneOf
+        [ Url.Parser.map Index top
+        , Url.Parser.map Profile (s "profile" </> string)
+        ]
-- 
cgit v1.3