Revert "Add some parsing stuff to finished/ for Tag"

This reverts commit 2bd0c78583.
This commit is contained in:
Richard Feldman
2018-05-04 19:31:00 -04:00
parent 2bd0c78583
commit 70080511e3
24 changed files with 48 additions and 2565 deletions

View File

@@ -3,12 +3,15 @@ module Data.Article
( Article
, Body
, Slug
, Tag
, bodyToHtml
, bodyToMarkdownString
, decoder
, decoderWithBody
, slugParser
, slugToString
, tagDecoder
, tagToString
)
import Data.Article.Author as Author exposing (Author)
@@ -107,6 +110,24 @@ 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 --