Update test

haskell · Feb 21, 2021 · 88f01d3 · 88f01d3
1 parent 7cdb788
commit 88f01d3
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/test/functional/FunctionalCodeAction.hs b/test/functional/FunctionalCodeAction.hs
@@ -518,8 +518,14 @@ missingPragmaTests = testGroup "missing pragma warning code actions" [
             contents <- documentContents doc
 
             let expected =
+-- TODO: Why CPP???
+#if __GLASGOW_HASKELL__ < 810
+                    [ "{-# LANGUAGE ScopedTypeVariables #-}"
+                    , "{-# LANGUAGE TypeApplications #-}"
+#else
                     [ "{-# LANGUAGE TypeApplications #-}"
                     , "{-# LANGUAGE ScopedTypeVariables #-}"
+#endif
                     , "module TypeApplications where"
                     , ""
                     , "foo :: forall a. a -> a"