Removing output from test
commitb085e63aa78e7b0cdb57e6e42cee8db040c2edef
authorFreezeboy <freezeboy@users.noreply.github.com>
dateTue 28 Jul 2015, 01:27 (11 years ago)
parent17ca343
servant-js/test/Servant/JSSpec.hs+1−1
@@ -148,7 +148,7 @@ generateJSSpec n gen = describe specLabel $ do
148148 parseFromString jsStr `shouldSatisfy` isRight
149149 where
150150 specLabel = "generateJS(" ++ (show n) ++ ")"
151− output = putStrLn
151+ output _ = return ()
152152 genJS req = gen req
153153 header :: TestNames -> String -> String -> String
154154 header v headerName headerValue