Disabled curve 25519 backport for newer cryptonite library.

1 files changed, 5 insertions, 0 deletions

diff --git a/Presence/Presence.hs b/Presence/Presence.hs
index ed1c5033..c556a170 100644
--- a/Presence/Presence.hs
+++ b/Presence/Presence.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP                       #-}
 {-# LANGUAGE ExistentialQuantification #-}
 {-# LANGUAGE LambdaCase                #-}
 {-# LANGUAGE OverloadedStrings         #-}
@@ -38,7 +39,11 @@ import Data.Int (Int8)
 import Data.XML.Types (Event)
 import System.Posix.Types (UserID,CPid)
 import Control.Applicative
+#ifdef CRYPTONITE_BACKPORT
 import Crypto.Error.Types       (CryptoFailable (..))
+#else
+import Crypto.Error
+#endif
 import Crypto.PubKey.Curve25519 (SecretKey,toPublic)
 import Text.Read (readMaybe)