Add some parsing stuff to finished/ for Tag

2018-05-04 19:30:58 -04:00
parent 82e848ba97
commit 2bd0c78583
24 changed files with 2565 additions and 48 deletions
--- a/finished/src/Data/Article.elm
+++ b/finished/src/Data/Article.elm
@@ -3,15 +3,12 @@ module Data.Article
        ( Article
        , Body
        , Slug
-        , Tag
        , bodyToHtml
        , bodyToMarkdownString
        , decoder
        , decoderWithBody
        , slugParser
        , slugToString
-        , tagDecoder
-        , tagToString
        )

 import Data.Article.Author as Author exposing (Author)
@@ -110,24 +107,6 @@ slugToString (Slug slug) =



-- TAGS --
-
-
-type Tag
-    = Tag String
-
-
-tagToString : Tag -> String
-tagToString (Tag slug) =
-    slug
-
-
-tagDecoder : Decoder Tag
-tagDecoder =
-    Decode.map Tag Decode.string
-
-
-
 -- BODY --