X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FLiberateCase.hi;h=5646aa0f6bf716fe5ab0baef8de177d5ff529615;hp=e2b140b899c6c0d08116d26fe34a8d8a27e94cd1;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hpb=7fa716e248a1f11fa686965f57aebbb83b74fa7b diff --git a/ghc/compiler/simplCore/LiberateCase.hi b/ghc/compiler/simplCore/LiberateCase.hi index e2b140b..5646aa0 100644 --- a/ghc/compiler/simplCore/LiberateCase.hi +++ b/ghc/compiler/simplCore/LiberateCase.hi @@ -3,5 +3,4 @@ interface LiberateCase where import CoreSyn(CoreBinding) import Id(Id) liberateCase :: Int -> [CoreBinding Id Id] -> [CoreBinding Id Id] - {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}