[commit: ghc] type-holes-branch: This line accidentiall got deleted in bdb45c59e30184a1f552aeda6a8c2631820b675f. (69bff6a)
Simon Peyton Jones <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : type-holes-branch http://hackage.haskell.org/trac/ghc/changeset/69bff6a09154442609bb00d9a6c0765ff5ef2553 >--------------------------------------------------------------- commit 69bff6a09154442609bb00d9a6c0765ff5ef2553 Author: Thijs Alkemade <[email protected]> Date: Sun Jan 15 00:10:11 2012 +0100 This line accidentiall got deleted in bdb45c59e30184a1f552aeda6a8c2631820b675f. >--------------------------------------------------------------- compiler/coreSyn/CoreSyn.lhs | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs index 7c2a40a..577038d 100644 --- a/compiler/coreSyn/CoreSyn.lhs +++ b/compiler/coreSyn/CoreSyn.lhs @@ -1356,6 +1356,7 @@ deAnnotate' (AnnLit lit) = Lit lit deAnnotate' (AnnLam binder body) = Lam binder (deAnnotate body) deAnnotate' (AnnApp fun arg) = App (deAnnotate fun) (deAnnotate arg) deAnnotate' (AnnCast e (_,co)) = Cast (deAnnotate e) co +deAnnotate' (AnnTick tick body) = Tick tick (deAnnotate body) deAnnotate' (AnnHole src) = Hole src deAnnotate' (AnnLet bind body)