SPA for part10

part10/Page.elm

@@ -0,0 +1,26 @@
+module Page exposing (..)
+
+import Navigation
+import UrlParser exposing (Parser, (</>), format, int, s, string)
+import String
+
+
+type Page
+    = Home
+    | Repository Int
+    | NotFound
+
+
+pageParser : Parser (Page -> a) a
+pageParser =
+    UrlParser.oneOf
+        [ format Home (s "")
+        , format Repository (s "repositories" </> int)
+        ]
+
+
+parser : Navigation.Location -> Result String Page
+parser location =
+    location.pathname
+        |> String.dropLeft 1
+        |> UrlParser.parse identity pageParser