Fix build with aeson >= 2.0.0

poscat0x04 · Feb 19, 2023 · 8eb9ecb · 8eb9ecb
1 parent fba4ef9
commit 8eb9ecb
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/TDLib/EventLoop.hs b/src/TDLib/EventLoop.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE ExistentialQuantification #-}
 
 -- | A heavyweight TDLib effect intepreter written using event loop
@@ -20,7 +21,11 @@ import Control.Monad
 import Control.Monad.Loops
 import Data.Aeson
 import Data.ByteString.Lazy (toStrict)
+#if MIN_VERSION_aeson(2,0,0)
+import qualified Data.Aeson.KeyMap as HM
+#else
 import qualified Data.HashMap.Strict as HM
+#endif
 import Data.IntMap.Strict (IntMap)
 import qualified Data.IntMap.Strict as M
 import Data.Maybe