X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsArrows.lhs;h=111e0bccd04882dfddf0e3a054d2cd851d8b4213;hb=36436bc62a98f53e126ec02fe946337c4c766c3f;hp=a5d797de93cd30debf26f90e7fd0320f35a9c9da;hpb=8761b73561019d5514194fc8b0eee2b13f0e0ec9;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsArrows.lhs b/ghc/compiler/deSugar/DsArrows.lhs
index a5d797d..111e0bc 100644
--- a/ghc/compiler/deSugar/DsArrows.lhs
+++ b/ghc/compiler/deSugar/DsArrows.lhs
@@ -48,7 +48,7 @@ import HsUtils		( collectPatBinders, collectPatsBinders )
 import VarSet		( IdSet, mkVarSet, varSetElems,
 			  intersectVarSet, minusVarSet, extendVarSetList, 
 			  unionVarSet, unionVarSets, elemVarSet )
-import SrcLoc		( Located(..), unLoc, noLoc, getLoc )
+import SrcLoc		( Located(..), unLoc, noLoc )
 \end{code}
 
 \begin{code}