From 76d8b4c53b0bbfd609a327857b1e09657cf1fc23 Mon Sep 17 00:00:00 2001 From: Lucas DiCioccio Date: Sun, 19 May 2024 15:07:36 +0200 Subject: [PATCH] Support GHC.Tuple.Prim.Tuple2 --- src/Language/PureScript/Bridge/Tuple.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/Language/PureScript/Bridge/Tuple.hs b/src/Language/PureScript/Bridge/Tuple.hs index 7a624606..0766c12b 100644 --- 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)