[project @ 2004-12-22 12:06:13 by simonpj]

[ghc-hetmet.git] / ghc / compiler / deSugar / MatchLit.lhs

diff --git a/ghc/compiler/deSugar/MatchLit.lhs b/ghc/compiler/deSugar/MatchLit.lhs
index ea307ac..75a0a62 100644 (file)
--- a/ghc/compiler/deSugar/MatchLit.lhs
+++ b/ghc/compiler/deSugar/MatchLit.lhs
@@ -25,7 +25,7 @@ import PrelNames      ( ratioTyConKey )
 import TysWiredIn      ( stringTy, consDataCon, intDataCon, floatDataCon, doubleDataCon )
 import Unique          ( hasKey )
 import Literal         ( mkMachInt, Literal(..) )
-import SrcLoc          ( noLoc, unLoc )
+import SrcLoc          ( noLoc )
 import ListSetOps      ( equivClasses, runs )
 import Ratio           ( numerator, denominator )
 import SrcLoc          ( Located(..) )