Clean up route

driebit · Mar 15, 2019 · c270c19 · c270c19
1 parent c9eaf42
commit c270c19
Showing 1 changed file with 6 additions and 11 deletions.
diff --git a/src/Route.elm b/src/Route.elm
@@ -8,16 +8,16 @@ import Url.Builder as Builder
 import Url.Parser exposing ((</>), Parser)
 
 
+
+-- DEFINITIONS
+
+
 type Route
     = Root
-    | Article Id
+    | Article Int
     | NotFound
 
 
-type alias Id =
-    Int
-
-
 
 -- PARSE
 
@@ -82,9 +82,4 @@ Type checked internal links.
 -}
 link : Route -> List (Attribute msg) -> List (Html msg) -> Html msg
 link route attributes content =
-    a
-        ([ href (toUrl route)
-         ]
-            ++ attributes
-        )
-        content
+    a (href (toUrl route) :: attributes) content