X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmZipUtil.hs;fp=compiler%2Fcmm%2FCmmZipUtil.hs;h=c7a027e93fb87a4f0e195b9850d04e381577c3c1;hb=1241c26f3552a2037263769e5ef7fa68d9f3be36;hp=2dcb55fe2ef0526563f115435d022bf32d1d7967;hpb=b494094bdec3f756010583342ce7bd1fed805281;p=ghc-hetmet.git diff --git a/compiler/cmm/CmmZipUtil.hs b/compiler/cmm/CmmZipUtil.hs index 2dcb55f..c7a027e 100644 --- a/compiler/cmm/CmmZipUtil.hs +++ b/compiler/cmm/CmmZipUtil.hs @@ -1,10 +1,10 @@ -{-# OPTIONS -Wall -fno-warn-name-shadowing #-} -module CmmZipUtil + +module CmmZipUtil ( zipPreds ) where import Prelude hiding (last, unzip) -import ZipCfg +import ZipCfg import Maybes -- | Compute the predecessors of each *reachable* block