diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 15:48:49 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 15:48:49 +0100 |
| commit | d2d3b7190ee013b05286fb00d9ac1e6e1c0c70de (patch) | |
| tree | 724c17c913b48237687fbbc0fcff2f1795ea916f /compiler | |
| parent | 1c490467fce17d97c30bc518df498f9b353d10d6 (diff) | |
| download | haskell-d2d3b7190ee013b05286fb00d9ac1e6e1c0c70de.tar.gz | |
Avoid a needless trip via SDoc when showing a Unique
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/typecheck/TcEnv.lhs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/typecheck/TcEnv.lhs b/compiler/typecheck/TcEnv.lhs index 3f5fb09f15..fce17affaa 100644 --- a/compiler/typecheck/TcEnv.lhs +++ b/compiler/typecheck/TcEnv.lhs @@ -78,7 +78,6 @@ import DynFlags import SrcLoc import BasicTypes import Outputable -import Unique import FastString import ListSetOps import Util @@ -736,8 +735,7 @@ mkStableIdFromString :: String -> Type -> SrcSpan -> (OccName -> OccName) -> TcM mkStableIdFromString str sig_ty loc occ_wrapper = do uniq <- newUnique mod <- getModule - let uniq_str = showSDoc (pprUnique uniq) :: String - occ = mkVarOcc (str ++ '_' : uniq_str) :: OccName + let occ = mkVarOcc (str ++ '_' : show uniq) :: OccName gnm = mkExternalName uniq mod (occ_wrapper occ) loc :: Name id = mkExportedLocalId gnm sig_ty :: Id return id |