@@ -110,8 +110,6 @@ import Control.Monad (forever)
110110import qualified Network.HTTP.Types as H
111111import qualified Data.CaseInsensitive as CI
112112import System.IO (hPutStrLn, stderr)
113−import qualified Paths_warp
114−import Data.Version (showVersion)
115113
116114import Data.List (delete)
117115
@@ -121,6 +119,15 @@ import qualified Control.Concurrent.MVar as MV
121119import Network.Socket (withSocketsDo)
122120#endif
123121
122+#ifndef MEGA
123+import Data.Version (showVersion)
124+import qualified Paths_warp
125+warpVersion = showVersion Paths_warp.version
126+#else
127+warpVersion = "0.4.6"
128+#endif
129+warpVersion :: String
130+
124131bindPort :: Int -> String -> IO Socket
125132bindPort p s = do
126133 let hints = defaultHints { addrFlags = [AI_PASSIVE
@@ -612,6 +619,6 @@ serverHeader hdrs = case lookup key hdrs of
612619 Just svr -> servers svr : delete (key,svr) hdrs
613620 where
614621 key = "Server"
615− ver = B.pack $ "Warp/" ++ showVersion Paths_warp.version
622+ ver = B.pack $ "Warp/" ++ warpVersion
616623 server = (key, ver)
617624 servers svr = (key, S.concat [svr, " ", ver])