improved formatting of lists

tibbe · May 3, 2010 · 7a19c17 · 7a19c17
1 parent dbf2b63
commit 7a19c17
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 11 deletions.
diff --git a/Network/Socket/ByteString/Lazy.hsc b/Network/Socket/ByteString/Lazy.hsc
@@ -25,13 +25,13 @@ module Network.Socket.ByteString.Lazy
   (
 #if !defined(mingw32_HOST_OS)
     -- * Send data to a socket
-    send,
-    sendAll,
+      send
+    , sendAll
 #endif
 
     -- * Receive data from a socket
-    getContents,
-    recv
+    , getContents
+    , recv
   ) where
 
 import Control.Monad (liftM)

diff --git a/tests/Simple.hs b/tests/Simple.hs
@@ -131,10 +131,11 @@ main = withSocketsDo $ do
     when (errors counts + failures counts > 0) exitFailure
 
 tests :: Test
-tests = TestList [TestLabel "testLazySend" testLazySend,
-                  TestLabel "testSendAll" testSendMany,
-                  TestLabel "testSendMany" testSendMany,
-                  TestLabel "testRecv" testRecv,
-                  TestLabel "testOverFlowRecv" testOverFlowRecv,
-                  TestLabel "testRecvFrom" testRecvFrom,
-                  TestLabel "testOverFlowRecvFrom" testOverFlowRecvFrom]
+tests = TestList [ TestLabel "testLazySend" testLazySend
+                 , TestLabel "testSendAll" testSendMany
+                 , TestLabel "testSendMany" testSendMany
+                 , TestLabel "testRecv" testRecv
+                 , TestLabel "testOverFlowRecv" testOverFlowRecv
+                 , TestLabel "testRecvFrom" testRecvFrom
+                 , TestLabel "testOverFlowRecvFrom" testOverFlowRecvFrom
+                 ]