removing warnings on Windows.
commit0eba0ce0350a7691b27fd358ec7aeed659de85fe
authorKazu Yamamoto <kazu@iij.ad.jp>
dateThu 24 Dec 2015, 14:28 (11 years ago)
parent3af9908
warp/Network/Wai/Handler/Warp/Date.hs−3
@@ -5,9 +5,6 @@ module Network.Wai.Handler.Warp.Date (
55 , getDate
66 , DateCache
77 , GMTDate
8−#if WINDOWS
9− , uToH
10−#endif
118 ) where
129
1310#if __GLASGOW_HASKELL__ < 709
warp/Network/Wai/Handler/Warp/FdCache.hs+1−1
@@ -10,7 +10,7 @@ module Network.Wai.Handler.Warp.FdCache (
1010 ) where
1111
1212type Refresh = IO ()
13−data MutableFdCache = MutableFdCache
13+type MutableFdCache = ()
1414
1515withFdCache :: Int -> (Maybe MutableFdCache -> IO a) -> IO a
1616withFdCache _ f = f Nothing
warp/Network/Wai/Handler/Warp/FileInfoCache.hs−5
@@ -15,11 +15,6 @@ import qualified Data.HashMap.Strict as M
1515import Network.HTTP.Date
1616import System.PosixCompat.Files
1717
18−#if WINDOWS
19−import Data.Time (UTCTime)
20−import Network.Wai.Handler.Warp.Date (uToH)
21−#endif
22−
2318----------------------------------------------------------------
2419
2520-- | File information.
warp/Network/Wai/Handler/Warp/Response.hs+2
@@ -55,7 +55,9 @@ import qualified Network.HTTP.Types.Header as H
5555import Network.Wai
5656import Network.Wai.Handler.Warp.Buffer (toBuilderBuffer)
5757import qualified Network.Wai.Handler.Warp.Date as D
58+#ifndef WINDOWS
5859import qualified Network.Wai.Handler.Warp.FdCache as F
60+#endif
5961import Network.Wai.Handler.Warp.File
6062import Network.Wai.Handler.Warp.Header
6163import Network.Wai.Handler.Warp.IO (toBufIOWith)