Permalink
Browse files

add the direction of logging in tests.

  • Loading branch information...
vincenthz committed Dec 20, 2011
1 parent 201cd7f commit de9d75bbaf062d970a86eb9f69f5a874972910c3
Showing with 2 additions and 2 deletions.
  1. +2 −2 Tests/Connection.hs
View
@@ -95,8 +95,8 @@ arbitraryPairParams = do
where
logging pre = if debug
then defaultLogging
- { loggingPacketSent = putStrLn . (pre ++)
- , loggingPacketRecv = putStrLn . (pre ++) }
+ { loggingPacketSent = putStrLn . ((pre ++ ">> ") ++)
+ , loggingPacketRecv = putStrLn . ((pre ++ "<< ") ++) }
else defaultLogging
arbitraryVersions :: Gen [Version]
arbitraryVersions = resize (length supportedVersions + 1) $ listOf1 (elements supportedVersions)

0 comments on commit de9d75b

Please sign in to comment.