@@ -1,4 +1,5 @@
1{-# LANGUAGE Rank2Types #-}
1{-# LANGUAGE Rank2Types #-}
2{-# LANGUAGE ExistentialQuantification #-}
3{-# LANGUAGE ExistentialQuantification #-}
3{-# LANGUAGE DeriveDataTypeable #-}
4{-# LANGUAGE DeriveDataTypeable #-}
@@ -61,7 +62,11 @@ import qualified Network.HTTP.Types as H
61import Data.Text (Text)
62import Data.Text (Text)
62import Data.ByteString.Lazy.Char8 () -- makes it easier to use responseLBS
63import Data.ByteString.Lazy.Char8 () -- makes it easier to use responseLBS
63import Blaze.ByteString.Builder (fromByteString)
64import Blaze.ByteString.Builder (fromByteString)
65+#if MIN_VERSION_vault(0,3,0)
66+import Data.Vault.Lazy (Vault)
64import Data.Vault (Vault)
68import Data.Vault (Vault)
65import Data.Word (Word64)
70import Data.Word (Word64)
67-- | Information on the request sent by the client. This abstracts away the
72-- | Information on the request sent by the client. This abstracts away the