Rename Url -> ItemUrl to prevent confusion with elm-url

rl-king · Oct 21, 2019 · 31b6f26 · 31b6f26
1 parent 489e4fe
commit 31b6f26
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Main.elm b/src/Main.elm
@@ -216,7 +216,7 @@ viewListItem index item =
         ]
 
 
-listItemUrl : Int -> Url -> String -> Html Msg
+listItemUrl : Int -> ItemUrl -> String -> Html Msg
 listItemUrl id url title =
     case url of
         Internal ->
@@ -297,7 +297,7 @@ viewItem item =
         ]
 
 
-itemUrl : Url -> String -> Html Msg
+itemUrl : ItemUrl -> String -> Html Msg
 itemUrl url title =
     case url of
         External path ->
@@ -555,7 +555,7 @@ type alias Item =
     , points : Int
     , user : String
     , timeAgo : String
-    , url : Url
+    , url : ItemUrl
     , domain : String
     , commentsCount : Int
     , comments : Comments
@@ -572,7 +572,7 @@ type alias User =
     }
 
 
-type Url
+type ItemUrl
     = External String
     | Internal
     | None
@@ -604,7 +604,7 @@ decodeItem =
         |> Pipeline.required "type" Decode.string
 
 
-decodeUrl : Decode.Decoder Url
+decodeUrl : Decode.Decoder ItemUrl
 decodeUrl =
     let
         toLink url =