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 parseFromString jsStr `shouldSatisfy` isRight
where where
specLabel = "generateJS(" ++ (show n) ++ ")" specLabel = "generateJS(" ++ (show n) ++ ")"
output = putStrLn output _ = return ()
genJS req = gen req genJS req = gen req
header :: TestNames -> String -> String -> String header :: TestNames -> String -> String -> String
header v headerName headerValue header v headerName headerValue