@@ -120,15 +120,11 @@ import qualified Control.Concurrent.MVar as MV
120120import Network.Socket (withSocketsDo)
121121#endif
122122
123−
124−#ifndef MEGA
125123import Data.Version (showVersion)
126124import qualified Paths_warp
127−warpVersion = showVersion Paths_warp.version
128−#else
129−warpVersion = "0.4.6"
130−#endif
125+
131126warpVersion :: String
127+warpVersion = showVersion Paths_warp.version
132128
133129data Connection = Connection
134130 { connSendMany :: [B.ByteString] -> IO ()