Fixed build of testsuite.

1 files changed, 6 insertions, 3 deletions

diff --git a/tests/Config.hs b/tests/Config.hs
index 9ffb0d8c..55e30867 100644
--- a/tests/Config.hs
+++ b/tests/Config.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP             #-}
 {-# LANGUAGE RecordWildCards #-}
 module Config
        ( -- * Types
@@ -39,8 +40,10 @@ import Network.BitTorrent.Address (IP, PeerAddr (PeerAddr), genPeerId)
 type ClientName = String
 
 
+#if !MIN_VERSION_network(2,6,3)
 instance Read PortNumber where
   readsPrec = error "readsPrec"
+#endif
 
 data ClientOpts = ClientOpts
   { peerPort   :: PortNumber  -- tcp port
@@ -64,13 +67,13 @@ defThisOpts = def
 
 clientOptsParser :: Parser ClientOpts
 clientOptsParser = ClientOpts
-  <$> option
+  <$> option auto
     ( long    "peer-port"  <> short 'p'
    <> value   6881         <> showDefault
    <> metavar "NUM"
    <> help    "port to bind the specified bittorrent client"
     )
-  <*> option
+  <*> option auto
     ( long    "node-port"  <> short 'n'
    <> value   6881         <> showDefault
    <> metavar "NUM"
@@ -177,4 +180,4 @@ getOpts = do
         exitFailure
 
       writeIORef envOptsRef envOpts
-      return (envOpts, hspecOpts)
\ No newline at end of file
+      return (envOpts, hspecOpts)