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

remove debugging print

Browse source
This commit is contained in:
Sönke Hahn 2016-01-09 12:34:52 +01:00
parent 66628ca043
commit 4384c1df07
1 changed files with 0 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
servant-server/test/Servant/Server/Internal/ConfigSpec.hs
View file

@ -29,7 +29,6 @@ getConfigEntrySpec = describe "getConfigEntry" $ do
it "allows to distinguish between different config entries with the same type by tag" $ do it "allows to distinguish between different config entries with the same type by tag" $ do
let cfg = 'a' .: 'b' .: EmptyConfig :: Config '[ConfigEntry 1 Char, ConfigEntry 2 Char] let cfg = 'a' .: 'b' .: EmptyConfig :: Config '[ConfigEntry 1 Char, ConfigEntry 2 Char]
print cfg
getConfigEntry (Proxy :: Proxy 1) cfg `shouldBe` 'a' getConfigEntry (Proxy :: Proxy 1) cfg `shouldBe` 'a'
context "Show instance" $ do context "Show instance" $ do