Fix compatibility issue with network < 2.6.3

2 files changed, 7 insertions, 0 deletions

diff --git a/gopher-proxy.cabal b/gopher-proxy.cabal
index 66bcf65..82461d1 100644
--- a/gopher-proxy.cabal
+++ b/gopher-proxy.cabal
@@ -16,6 +16,7 @@ cabal-version:       >=1.10
 
 executable gopher-proxy
   main-is:             Main.hs
+  default-extensions:  CPP
   -- other-modules:       
   -- other-extensions:    
   build-depends:       base
diff --git a/src/GopherProxy/Params.hs b/src/GopherProxy/Params.hs
index e919e81..c99d099 100644
--- a/src/GopherProxy/Params.hs
+++ b/src/GopherProxy/Params.hs
@@ -59,3 +59,9 @@ params = Params
 
 optionalWithDefault :: a -> Parser a -> Parser a
 optionalWithDefault def p = fromMaybe def <$> optional p
+
+-- Thanks enum! <3
+#if !MIN_VERSION_network(2,6,3)
+instance Read PortNumber where
+  readsPrec i str = fmap (\(i,str) -> (fromInteger i,str)) $ readsPrec i str
+#endif