Test parens with Product over DataType

krisajenkins · Nov 28, 2015 · f72961c · f72961c
1 parent 214bc82
commit f72961c
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 0 deletions.
diff --git a/test/PostDecoder.txt b/test/PostDecoder.txt
@@ -4,4 +4,5 @@ decodePost = Post
   `apply` ("name" := string)
   `apply` ("age" := maybe float)
   `apply` ("comments" := list decodeComment)
+  `apply` ("promoted" := maybe decodeComment)
   `apply` ("author" := maybe string)
diff --git a/test/PostType.txt b/test/PostType.txt
@@ -3,4 +3,5 @@ type alias Post =
   ,name : String
   ,age : Maybe Float
   ,comments : List Comment
+  ,promoted : Maybe Comment
   ,author : Maybe String}
diff --git a/test/Spec.hs b/test/Spec.hs
@@ -14,6 +14,7 @@ data Post =
        ,name     :: String
        ,age      :: Maybe Double
        ,comments :: [Comment]
+       ,promoted :: Maybe Comment
        ,author   :: Maybe String}
   deriving Generic