30 lines
341 B
Elm
30 lines
341 B
Elm
module CommentId exposing (CommentId, decoder, toString)
|
|
|
|
import Json.Decode as Decode exposing (Decoder)
|
|
|
|
|
|
|
|
-- TYPES
|
|
|
|
|
|
type CommentId
|
|
= CommentId Int
|
|
|
|
|
|
|
|
-- CREATE
|
|
|
|
|
|
decoder : Decoder CommentId
|
|
decoder =
|
|
Decode.map CommentId Decode.int
|
|
|
|
|
|
|
|
-- TRANSFORM
|
|
|
|
|
|
toString : CommentId -> String
|
|
toString (CommentId id) =
|
|
String.fromInt id
|