diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-05-10 09:31:35 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-05-10 09:31:35 +0000 |
| commit | b1ab4b8a607addc4d097588db5761313c996a41f (patch) | |
| tree | b7e126ed9b7cb4f4aae384affade6be82a12c45a /compiler/ndpFlatten | |
| parent | e46cab34c24d2b9bdb37dbddf8ff640653b0b35f (diff) | |
| download | haskell-b1ab4b8a607addc4d097588db5761313c996a41f.tar.gz | |
Warning fix for unused and redundant imports
Diffstat (limited to 'compiler/ndpFlatten')
| -rw-r--r-- | compiler/ndpFlatten/Flattening.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/compiler/ndpFlatten/Flattening.hs b/compiler/ndpFlatten/Flattening.hs index 18fc319e87..6072ad634f 100644 --- a/compiler/ndpFlatten/Flattening.hs +++ b/compiler/ndpFlatten/Flattening.hs @@ -55,12 +55,11 @@ module Flattening ( #include "HsVersions.h" -- friends -import NDPCoreUtils (tupleTyArgs, funTyArgs, parrElemTy, isDefault, +import NDPCoreUtils (tupleTyArgs, funTyArgs, isDefault, isLit, mkPArrTy, mkTuple, isSimpleExpr, substIdEnv) import FlattenMonad (Flatten, runFlatten, mkBind, extendContext, packContext, liftVar, liftConst, intersectWithContext, mk'fst, - mk'lengthP, mk'replicateP, mk'mapP, mk'bpermuteDftP, - mk'indexOfP,mk'eq,mk'neq) + mk'mapP, mk'bpermuteDftP, mk'indexOfP,mk'eq,mk'neq) -- GHC import TcType ( tcIsForAllTy, tcView ) @@ -75,9 +74,9 @@ import Literal (Literal, literalType) import Var (Var(..), idType, isTyVar) import Id (setIdType) import DataCon (DataCon, dataConTag) -import HscTypes ( ModGuts(..), ModGuts, HscEnv(..), hscEPS ) +import HscTypes ( ModGuts(..), HscEnv(..), hscEPS ) import CoreFVs (exprFreeVars) -import CoreSyn (Expr(..), Bind(..), Alt(..), AltCon(..), Note(..), +import CoreSyn (Expr(..), Bind(..), Alt, AltCon(..), CoreBndr, CoreExpr, CoreBind, mkLams, mkLets, mkApps, mkIntLitInt) import PprCore (pprCoreExpr) |