@@ -23,6 +23,7 @@ import Data.Word8
2323import Foreign.ForeignPtr (withForeignPtr, ForeignPtr)
2424import Foreign.Ptr (Ptr, plusPtr, minusPtr, nullPtr)
2525import Foreign.Storable (peek)
26+import Network.HTTP.Types (Status(..))
2627import Network.Wai
2728import Network.Wai.Handler.Warp
2829import Network.Wai.Internal (Response(..))
@@ -81,7 +82,7 @@ pushOnReferer func app req sendResponse = app req $ \res -> do
8182 Nothing -> case requestHeaderReferer req of
8283 Nothing -> return ()
8384 Just referer -> case res of
84− ResponseFile _ _ file Nothing -> do
85+ ResponseFile (Status 200 "OK") _ file Nothing -> do
8586 (mauth,refPath) <- parseUrl referer
8687 when (isNothing mauth
8788 || requestHeaderHost req == mauth) $ do