1 files changed, 11 insertions, 0 deletions

diff --git a/Crypto/Cipher/ThomasToVincent.hs b/Crypto/Cipher/ThomasToVincent.hs
index 85b0875..11cede3 100644
--- a/Crypto/Cipher/ThomasToVincent.hs
+++ b/Crypto/Cipher/ThomasToVincent.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 module Crypto.Cipher.ThomasToVincent where
 
@@ -6,6 +7,10 @@ import Data.Byteable
 
 import Data.Tagged
 import qualified Crypto.Classes as Thomas
+#if ! MIN_VERSION_crypto_api(0,11,0)
+import qualified Crypto.Modes as Thomas
+#endif
+
 
 newtype ThomasToVincent b = ThomasToVincent b
 
@@ -19,6 +24,12 @@ instance Thomas.BlockCipher b => Cipher (ThomasToVincent b) where
 instance Thomas.BlockCipher b => BlockCipher (ThomasToVincent b) where
     blockSize _ = bitlen `div` 8
      where Tagged bitlen = Thomas.blockSize :: Tagged b Int
+#if ! MIN_VERSION_crypto_api(0,11,0)
+    ecbEncrypt (ThomasToVincent k) = Thomas.ecb' k
+    ecbDecrypt (ThomasToVincent k) = Thomas.unEcb' k
+#else
     ecbEncrypt (ThomasToVincent k) = Thomas.ecb k
     ecbDecrypt (ThomasToVincent k) = Thomas.unEcb k
+#endif
+