removing warnings on Windows.
commit8f0b9c86e13f0efff2b8914d7509ee06f0d36ab8
authorKazu Yamamoto <kazu@iij.ad.jp>
dateThu 24 Dec 2015, 14:28 (11 years ago)
parent7804222
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/HTTP2/Sender.hs+2
@@ -23,7 +23,9 @@ import Network.Wai.Handler.Warp.HTTP2.HPACK
2323import Network.Wai.Handler.Warp.HTTP2.Types
2424import Network.Wai.Handler.Warp.IORef
2525import qualified Network.Wai.Handler.Warp.Settings as S
26+#ifndef WINDOWS
2627import qualified Network.Wai.Handler.Warp.Timeout as T
28+#endif
2729import Network.Wai.Handler.Warp.Types
2830import Network.Wai.Internal (Response(..))
2931
warp/Network/Wai/Handler/Warp/Response.hs+2
@@ -56,7 +56,9 @@ import qualified Network.HTTP.Types.Header as H
5656import Network.Wai
5757import Network.Wai.Handler.Warp.Buffer (toBuilderBuffer)
5858import qualified Network.Wai.Handler.Warp.Date as D
59+#ifndef WINDOWS
5960import qualified Network.Wai.Handler.Warp.FdCache as F
61+#endif
6062import Network.Wai.Handler.Warp.File
6163import Network.Wai.Handler.Warp.Header
6264import Network.Wai.Handler.Warp.IO (toBufIOWith)