diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-01-28 10:36:39 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-01-28 10:36:39 +0000 |
| commit | 463bbe95172eba825434b7a706040708797c08af (patch) | |
| tree | 3e49781d4240f205caf07255d4721ad527ddff0e /compiler/cmm/Cmm.hs | |
| parent | 889c084e943779e76d19f2ef5e970ff655f511eb (diff) | |
| download | haskell-463bbe95172eba825434b7a706040708797c08af.tar.gz | |
Fix warnings
Diffstat (limited to 'compiler/cmm/Cmm.hs')
| -rw-r--r-- | compiler/cmm/Cmm.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/compiler/cmm/Cmm.hs b/compiler/cmm/Cmm.hs index 076922e3fb..2e9f952f7b 100644 --- a/compiler/cmm/Cmm.hs +++ b/compiler/cmm/Cmm.hs @@ -2,6 +2,12 @@ {-# LANGUAGE GADTs #-} {-# OPTIONS_GHC -fno-warn-warnings-deprecations #-} +{-# OPTIONS_GHC -fno-warn-incomplete-patterns #-} +#if __GLASGOW_HASKELL__ >= 701 +-- GHC 7.0.1 improved incomplete pattern warnings with GADTs +{-# OPTIONS_GHC -fwarn-incomplete-patterns #-} +#endif + module Cmm ( CmmGraph(..), CmmBlock , CmmStackInfo(..), CmmTopInfo(..), Cmm, CmmTop @@ -52,7 +58,6 @@ type CmmTop = GenCmmTop CmmStatic CmmTopInfo CmmGraph toBlockMap :: CmmGraph -> LabelMap CmmBlock toBlockMap (CmmGraph {g_graph=GMany NothingO body NothingO}) = body ---toBlockMap _ = panic "Cmm.toBlockMap" ofBlockMap :: BlockId -> LabelMap CmmBlock -> CmmGraph ofBlockMap entry bodyMap = CmmGraph {g_entry=entry, g_graph=GMany NothingO bodyMap NothingO} @@ -131,7 +136,6 @@ insertBetween b ms succId = insert $ lastNode b panic "unimp: insertBetween after a call -- probably not a good idea" insert (CmmForeignCall {}) = panic "unimp: insertBetween after a foreign call -- probably not a good idea" - --insert _ = panic "Cmm.insertBetween.insert" newBlocks :: MonadUnique m => m (BlockId, [CmmBlock]) newBlocks = do id <- liftM mkBlockId $ getUniqueM |