add the direction of logging in tests.

haskell-tls · Dec 20, 2011 · de9d75b · de9d75b
1 parent 201cd7f
commit de9d75b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Tests/Connection.hs b/Tests/Connection.hs
@@ -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)