@@ -1,6 +1,7 @@
11{-# LANGUAGE DeriveDataTypeable #-}
22{-# LANGUAGE RecordWildCards, NamedFieldPuns #-}
33{-# LANGUAGE PatternGuards, BangPatterns #-}
4+{-# LANGUAGE CPP #-}
45
56module Network.Wai.Handler.Warp.HTTP2.Worker (
67 Responder
@@ -8,6 +9,9 @@ module Network.Wai.Handler.Warp.HTTP2.Worker (
89 , worker
910 ) where
1011
12+#if __GLASGOW_HASKELL__ < 709
13+import Control.Applicative
14+#endif
1115import Control.Concurrent
1216import Control.Concurrent.STM
1317import Control.Exception (Exception, SomeException(..), AsyncException(..))