diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2014-09-27 13:55:48 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-09-27 13:56:40 +0200 |
| commit | 51aa2fa3e65a960c1432dba9acc29db719964618 (patch) | |
| tree | 1709f95bc30866f4d21182fded4ad202a703bda3 /compiler/llvmGen/LlvmCodeGen/CodeGen.hs | |
| parent | b3aa6e486d158a2a5afbc463f06ad6d04c47b7fe (diff) | |
| download | haskell-51aa2fa3e65a960c1432dba9acc29db719964618.tar.gz | |
Stop exporting, and stop using, functions marked as deprecated
Don't export `getUs` and `getUniqueUs`. `UniqSM` has a `MonadUnique` instance:
instance MonadUnique UniqSM where
getUniqueSupplyM = getUs
getUniqueM = getUniqueUs
getUniquesM = getUniquesUs
Commandline-fu used:
git grep -l 'getUs\>' |
grep -v compiler/basicTypes/UniqSupply.lhs |
xargs sed -i 's/getUs/getUniqueSupplyM/g
git grep -l 'getUniqueUs\>' |
grep -v combiler/basicTypes/UniqSupply.lhs |
xargs sed -i 's/getUniqueUs/getUniqueM/g'
Follow up on b522d3a3f970a043397a0d6556ca555648e7a9c3
Reviewed By: austin, hvr
Differential Revision: https://phabricator.haskell.org/D220
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen/CodeGen.hs')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index a8869d10ed..6703801ed6 100644 --- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs @@ -1636,7 +1636,7 @@ getHsFunc' name fty -- | Create a new local var mkLocalVar :: LlvmType -> LlvmM LlvmVar mkLocalVar ty = do - un <- runUs getUniqueUs + un <- runUs getUniqueM return $ LMLocalVar un ty |