fix error in test needs a string
commit16f765581d0d42bf1200647fa2784ac79fe6cd8f
authorGreg Weber <greg@gregweber.info>
dateMon 5 Aug 2013, 16:37 (13 years ago)
parentf717edc
test/main.hs+1−1
@@ -108,7 +108,7 @@ main = hspec $ do
108108
109109 describe "yamlFileJSONparse" $
110110 it "loads YAML through JSON into Haskell data" $ do
111− tj <- either error id `fmap` D.decodeFileEither "test/json.yaml"
111+ tj <- either (error . show) id `fmap` D.decodeFileEither "test/json.yaml"
112112 tj `shouldBe` TestJSON
113113 { string = "str"
114114 , number = 2