Merge pull request #90 from owestphal/master

Support for GHC>=9.6
eskimor · Jan 30, 2024 · d43987e · d43987e
2 parents d947035 + 14589bc
commit d43987e
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Language/PureScript/Bridge/Primitives.hs b/src/Language/PureScript/Bridge/Primitives.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP               #-}
 {-# LANGUAGE DataKinds         #-}
 {-# LANGUAGE FlexibleContexts  #-}
 {-# LANGUAGE OverloadedStrings #-}
@@ -30,7 +31,11 @@ doubleBridge :: BridgePart
 doubleBridge = typeName ^== "Double" >> return psNumber
 
 listBridge :: BridgePart
+#if __GLASGOW_HASKELL__>=906
+listBridge = typeName ^== "List" >> psArray
+#else
 listBridge = typeName ^== "[]" >> psArray
+#endif
 
 maybeBridge :: BridgePart
 maybeBridge = typeName ^== "Maybe" >> psMaybe