From 0267c6eda919b88aaa670bda9ff0f77fbb5c24ef Mon Sep 17 00:00:00 2001
From: Alexander Bondarenko <486682+dpwiz@users.noreply.github.com>
Date: Tue, 4 Jun 2024 17:15:34 +0300
Subject: [PATCH] ConsPtr compat for 8.10

---
 src/Simplex/Messaging/Crypto/NaCl/Bindings.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/Simplex/Messaging/Crypto/NaCl/Bindings.hs b/src/Simplex/Messaging/Crypto/NaCl/Bindings.hs
index 5d8261915..88dc38d2f 100644
--- a/src/Simplex/Messaging/Crypto/NaCl/Bindings.hs
+++ b/src/Simplex/Messaging/Crypto/NaCl/Bindings.hs
@@ -1,6 +1,8 @@
 {-# LANGUAGE CApiFFI #-}
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE GADTs #-}
+{-# LANGUAGE PatternSynonyms #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
 
@@ -10,9 +12,16 @@ module Simplex.Messaging.Crypto.NaCl.Bindings where
 
 import Data.ByteArray (ScrubbedBytes)
 import Foreign
-import Foreign.C.ConstPtr
 import Foreign.C.Types
 
+#if MIN_VERSION_base(4,18,0)
+import Foreign.C.ConstPtr
+#else
+type ConstPtr = Ptr
+pattern ConstPtr :: p -> p
+pattern ConstPtr p = p
+#endif
+
 crypto_box_PUBLICKEYBYTES :: Num a => a
 crypto_box_PUBLICKEYBYTES = 32