@@ -1,9 +1,10 @@
1+{-# LANGUAGE BangPatterns #-}
12{-# LANGUAGE CPP #-}
23{-# LANGUAGE OverloadedStrings #-}
4+{-# LANGUAGE PackageImports #-}
5+{-# LANGUAGE PatternGuards #-}
36{-# LANGUAGE ScopedTypeVariables #-}
47{-# LANGUAGE TupleSections #-}
5−{-# LANGUAGE PatternGuards #-}
6−{-# LANGUAGE BangPatterns #-}
78{-# OPTIONS_GHC -fno-warn-deprecations #-}
89
910module Network.Wai.Handler.Warp.Run where
@@ -19,7 +20,7 @@ import Control.Monad (when, unless, void)
1920import Data.ByteString (ByteString)
2021import qualified Data.ByteString as S
2122import Data.Char (chr)
22−import Data.IP (toHostAddress, toHostAddress6)
23+import "iproute" Data.IP (toHostAddress, toHostAddress6)
2324import Data.IORef (IORef, newIORef, readIORef, writeIORef)
2425import Data.Streaming.Network (bindPortTCP)
2526import Network (sClose, Socket)