git.iko.soy/servant
on master help sign in
Removing output from test
b085e63Freezeboy
servant-js/test/Servant/JSSpec.hs+1−1
compare with master
unifiedsplit
@@ -148,7 +148,7 @@ generateJSSpec n gen = describe specLabel $ do
148 parseFromString jsStr `shouldSatisfy` isRight
148 parseFromString jsStr `shouldSatisfy` isRight
149 where
149 where
150 specLabel = "generateJS(" ++ (show n) ++ ")"
150 specLabel = "generateJS(" ++ (show n) ++ ")"
151− output = putStrLn
151+ output _ = return ()
152 genJS req = gen req
152 genJS req = gen req
153 header :: TestNames -> String -> String -> String
153 header :: TestNames -> String -> String -> String
154 header v headerName headerValue
154 header v headerName headerValue