Support GHC.Tuple.Prim.Tuple2

eskimor · May 19, 2024 · 76d8b4c · 76d8b4c
1 parent d43987e
commit 76d8b4c
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Language/PureScript/Bridge/Tuple.hs b/src/Language/PureScript/Bridge/Tuple.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP               #-}
 {-# LANGUAGE DataKinds         #-}
 {-# LANGUAGE OverloadedStrings #-}
 
@@ -10,7 +11,11 @@ import           Language.PureScript.Bridge.PSTypes (psTuple)
 import           Language.PureScript.Bridge.TypeInfo
 
 tupleBridge :: BridgePart
+#if __GLASGOW_HASKELL__>=908
+tupleBridge = typeName ^== "Tuple2" >> psTuple
+#else
 tupleBridge = doCheck haskType isTuple >> psTuple
+#endif
 
 data TupleParserState = Start | OpenFound | ColonFound | Tuple | NoTuple
   deriving (Eq, Show)