@@ -34,6 +34,7 @@ data TestJSON = TestJSON
3434 , number :: Int
3535 , anArray :: Vector Text
3636 , hash :: HashMap Text Text
37+ , extrastring :: Text
3738 } deriving (Show, Eq)
3839
3940deriveJSON defaultOptions ''TestJSON
@@ -119,6 +120,7 @@ main = hspec $ do
119120 , number = 2
120121 , anArray = V.fromList ["a", "b"]
121122 , hash = HM.fromList [("key1", "value1"), ("key2", "value2")]
123+ , extrastring = "1234-foo"
122124 }
123125
124126 describe "round-tripping of special scalars" $ do