@@ -1,4 +1,5 @@
11{-# LANGUAGE Rank2Types #-}
2+{-# LANGUAGE CPP #-}
23{-# LANGUAGE ExistentialQuantification #-}
34{-# LANGUAGE DeriveDataTypeable #-}
45{-|
@@ -61,7 +62,11 @@ import qualified Network.HTTP.Types as H
6162import Data.Text (Text)
6263import Data.ByteString.Lazy.Char8 () -- makes it easier to use responseLBS
6364import Blaze.ByteString.Builder (fromByteString)
65+#if MIN_VERSION_vault(0,3,0)
66+import Data.Vault.Lazy (Vault)
67+#else
6468import Data.Vault (Vault)
69+#endif
6570import Data.Word (Word64)
6671
6772-- | Information on the request sent by the client. This abstracts away the