@@ -108,7 +108,7 @@ main = hspec $ do
109 describe "yamlFileJSONparse" $
109 describe "yamlFileJSONparse" $
110 it "loads YAML through JSON into Haskell data" $ do
110 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"
112 tj `shouldBe` TestJSON
112 tj `shouldBe` TestJSON
113 { string = "str"
113 { string = "str"
114 , number = 2
114 , number = 2