git.iko.soy/typeable/wai
on master help sign in
Fix Windows build with time-1.5
0c4887eRyanGlScott
warp/Network/Wai/Handler/Warp/Date.hs+6−2
compare with master
unifiedsplit
@@ -12,8 +12,12 @@ import Control.AutoUpdate (defaultUpdateSettings, updateAction, mkAutoUpdate)
12import Data.ByteString.Char8
12import Data.ByteString.Char8
13
13
14#if WINDOWS
14#if WINDOWS
15−import Data.Time
15+import Data.Time (formatTime, getCurrentTime)
16+# if MIN_VERSION_time(1,5,0)
17+import Data.Time (defaultTimeLocale)
18+# else
16−import System.Locale
19+import System.Locale (defaultTimeLocale)
20+# endif
17#else
21#else
18import Network.HTTP.Date
22import Network.HTTP.Date
19import System.Posix (epochTime)
23import System.Posix (epochTime)