← Back to branch summary

~ubuntu-branches/ubuntu/vivid/haskell-wai-extra/vivid-proposed

« back to all changes in this revision

Viewing changes to Network/Wai/Middleware/RequestLogger/Internal.hs

  • Committer: Package Import Robot
  • Author(s): Colin Watson
  • Date: 2014-08-11 18:17:39 UTC
  • mfrom: (2.2.12 utopic-proposed)
  • Revision ID: package-import@ubuntu.com-20140811181739-e6urs2qwfgfuo9qq
Tags: 3.0.1.2-1build1
Rebuild for new GHC ABIs.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Network/Wai/Middleware/RequestLogger/Internal.hs
20
20
              -> IO (IO ByteString)
21
21
getDateGetter flusher = do
22
22
    (getter, updater) <- clockDateCacher
 
23
#if !MIN_VERSION_wai_logger(2, 2, 0)
23
24
    _ <- forkIO $ forever $ do
24
25
        threadDelay 1000000
25
26
        updater
26
27
        flusher
 
28
#endif
27
29
    return getter