@@ -120,15 +120,11 @@ import qualified Control.Concurrent.MVar as MV
120import Network.Socket (withSocketsDo)
120import Network.Socket (withSocketsDo)
125import Data.Version (showVersion)
123import Data.Version (showVersion)
126import qualified Paths_warp
124import qualified Paths_warp
127−warpVersion = showVersion Paths_warp.version
125+
129−warpVersion = "0.4.6"
131warpVersion :: String
126warpVersion :: String
127+warpVersion = showVersion Paths_warp.version
133data Connection = Connection
129data Connection = Connection
134 { connSendMany :: [B.ByteString] -> IO ()
130 { connSendMany :: [B.ByteString] -> IO ()