Skip to content
Snippets Groups Projects

JS: Isolate ad-hoc faststrings

Closed jeffrey young requested to merge doyougnu/ghc:wip/doyougnu/caf-refactor into master
27 files
+ 1913
707
Compare changes
  • Side-by-side
  • Inline
Files
27
@@ -92,7 +92,7 @@ newIdent = do env <- get
@@ -92,7 +92,7 @@ newIdent = do env <- get
return $ mk_ident tag id
return $ mk_ident tag id
mk_ident :: FastString -> Unique -> Ident
mk_ident :: FastString -> Unique -> Ident
mk_ident t i = global (mconcat [t, "_", mkFastString (show i)])
mk_ident t i = name (mconcat [t, "_", mkFastString (show i)])
-- | Set the tag for @Ident@s for all remaining computations.
-- | Set the tag for @Ident@s for all remaining computations.
tag_names :: FastString -> JSM ()
tag_names :: FastString -> JSM ()
Loading