blob: a348e47c2a582b83e1d2a161f090f61315b23da1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
module Main (main) where
import Data.List
import DynFlags
import Language.Haskell.Extension
main :: IO ()
main = do let ghcExtensions = [ ext | (ext, _, _) <- xFlags ]
cabalExtensions = map show [ toEnum 0 :: KnownExtension .. ]
ghcOnlyExtensions = ghcExtensions \\ cabalExtensions
-- These are extensions which are deliberately not yet
-- registered with Cabal
expectedGhcOnlyExtensions
= ["ParallelArrays",
"RelaxedLayout",
"DeriveGeneric",
"DefaultSignatures",
"AlternativeLayoutRule",
"AlternativeLayoutRuleTransitional",
"MonadComprehensions"]
unexpectedGhcOnlyExtension = ghcOnlyExtensions
\\ expectedGhcOnlyExtensions
mapM_ putStrLn unexpectedGhcOnlyExtension
|
