@@ -18,6 +18,7 @@
1818
1919{-# LANGUAGE FlexibleContexts #-}
2020{-# LANGUAGE ScopedTypeVariables #-}
21+{-# LANGUAGE CPP #-}
2122
2223module Language.PureScript.Linter.Exhaustive
2324 ( checkExhaustive
@@ -237,8 +238,10 @@ checkExhaustive env mn numArgs cas = makeResult . first nub $ foldl' step ([init
237238 cond = or <$> sequenceA pr
238239 in (concat missed, (liftA2 (&&) cond nec,
239240 if fromMaybe True cond then redundant else caseAlternativeBinders ca : redundant))
241+#if __GLASGOW_HASKELL__ < 710
240242 where
241243 sequenceA = foldr (liftA2 (:)) (pure [])
244+#endif
242245
243246 makeResult :: ([[Binder]], (Maybe Bool, [[Binder]])) -> m ()
244247 makeResult (bss, (_, bss')) =