diff options
| -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 |