blob: 64634a9c748470049f10d1eabb84f10fc2703088 (
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
26
|
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",
"InterruptibleFFI",
"AlternativeLayoutRule",
"AlternativeLayoutRuleTransitional",
"MonadComprehensions"]
unexpectedGhcOnlyExtension = ghcOnlyExtensions
\\ expectedGhcOnlyExtensions
mapM_ putStrLn unexpectedGhcOnlyExtension
|
