0eba0ce · typeable/wai

warp/Network/Wai/Handler/Warp/Date.hs−3

compare with master

unifiedsplit

@@ -5,9 +5,6 @@ module Network.Wai.Handler.Warp.Date (

5 , getDate

6 , DateCache

7 , GMTDate

8−#if WINDOWS

9− , uToH

10−#endif

11 ) where

8 ) where

12

9

13#if __GLASGOW_HASKELL__ < 709

10#if __GLASGOW_HASKELL__ < 709

warp/Network/Wai/Handler/Warp/FdCache.hs+1−1

@@ -10,7 +10,7 @@ module Network.Wai.Handler.Warp.FdCache (

10 ) where

11

12type Refresh = IO ()

13−data MutableFdCache = MutableFdCache

13+type MutableFdCache = ()

14

15withFdCache :: Int -> (Maybe MutableFdCache -> IO a) -> IO a

16withFdCache _ f = f Nothing

warp/Network/Wai/Handler/Warp/FileInfoCache.hs−5

@@ -15,11 +15,6 @@ import qualified Data.HashMap.Strict as M

15import Network.HTTP.Date

16import System.PosixCompat.Files

17

18−#if WINDOWS

19−import Data.Time (UTCTime)

20−import Network.Wai.Handler.Warp.Date (uToH)

21−#endif

22−

23----------------------------------------------------------------

18----------------------------------------------------------------

24

19

25-- | File information.

20-- | File information.

warp/Network/Wai/Handler/Warp/Response.hs+2

@@ -55,7 +55,9 @@ import qualified Network.HTTP.Types.Header as H

55import Network.Wai

56import Network.Wai.Handler.Warp.Buffer (toBuilderBuffer)

57import qualified Network.Wai.Handler.Warp.Date as D

58+#ifndef WINDOWS

58import qualified Network.Wai.Handler.Warp.FdCache as F

59import qualified Network.Wai.Handler.Warp.FdCache as F

60+#endif

59import Network.Wai.Handler.Warp.File

61import Network.Wai.Handler.Warp.File

60import Network.Wai.Handler.Warp.Header

62import Network.Wai.Handler.Warp.Header

61import Network.Wai.Handler.Warp.IO (toBufIOWith)

63import Network.Wai.Handler.Warp.IO (toBufIOWith)