blob: 4fef50a3f79af6885fa969fd2a8c41dfbe52b600 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
diff --git a/Network/Wai.hs b/Network/Wai.hs
index 626b30d..8189592 100644
--- a/Network/Wai.hs
+++ b/Network/Wai.hs
@@ -1,6 +1,7 @@
{-# LANGUAGE Rank2Types #-}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE CPP #-}
{-|
This module defines a generic web application interface. It is a common
@@ -61,7 +62,11 @@ import qualified Network.HTTP.Types as H
import Data.Text (Text)
import Data.ByteString.Lazy.Char8 () -- makes it easier to use responseLBS
import Blaze.ByteString.Builder (fromByteString)
+#if MIN_VERSION_vault(0,3,0)
+import Data.Vault.Lazy (Vault)
+#else
import Data.Vault (Vault)
+#endif
import Data.Word (Word64)
-- | Information on the request sent by the client. This abstracts away the
|
GitWeb
