eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Removing output from test

Browse source
This commit is contained in:
Freezeboy 2015-07-28 01:27:20 +02:00
parent 17ca343b45
commit b085e63aa7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-js/test/Servant/JSSpec.hs
View file

@ -148,7 +148,7 @@ generateJSSpec n gen = describe specLabel $ do
parseFromString jsStr `shouldSatisfy` isRight
where
specLabel = "generateJS(" ++ (show n) ++ ")"
output = putStrLn
output _ = return ()
genJS req = gen req
header :: TestNames -> String -> String -> String
header v headerName headerValue