T4437.hs 993 Bytes
Newer Older
1 2 3 4 5 6 7 8

module Main (main) where

import Data.List
import DynFlags
import Language.Haskell.Extension

main :: IO ()
dterei's avatar
dterei committed
9
main = do let ghcExtensions = [ ext | (ext, _, _, _) <- xFlags ]
10 11 12 13 14
              cabalExtensions = map show [ toEnum 0 :: KnownExtension .. ]
              ghcOnlyExtensions = ghcExtensions \\ cabalExtensions
              -- These are extensions which are deliberately not yet
              -- registered with Cabal
              expectedGhcOnlyExtensions
benl's avatar
benl committed
15
                  = ["ParallelArrays",
Ian Lynagh's avatar
Ian Lynagh committed
16
                     "RelaxedLayout",
17
                     "DeriveGeneric",
18
                     "DefaultSignatures",
19
                     "InterruptibleFFI",
20
                     "AlternativeLayoutRule",
21 22
                     "AlternativeLayoutRuleTransitional",
                     "MonadComprehensions"]
23 24 25 26
              unexpectedGhcOnlyExtension = ghcOnlyExtensions
                                        \\ expectedGhcOnlyExtensions
          mapM_ putStrLn unexpectedGhcOnlyExtension