fix tests for GHC 7.8.

Author: kazu-yamamoto

tests/Network/Test/Common.hs

@@ -26,16 +26,18 @@ module Network.Test.Common
   , lazyTestMsg
   ) where
 
+#if __GLASGOW_HASKELL__ < 709
+import Control.Applicative ((<$>))
+#endif
 import Control.Concurrent (ThreadId, forkIO, myThreadId)
 import Control.Concurrent.MVar (MVar, newEmptyMVar, putMVar, takeMVar, readMVar)
 import qualified Control.Exception as E
 import Control.Monad
 import Data.ByteString (ByteString)
+import qualified Data.ByteString.Lazy as L
 import Network.Socket
 import System.Directory
-import qualified Data.ByteString.Lazy as L
 import System.Timeout (timeout)
-
 import Test.Hspec
 
 serverAddr :: String