diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2016-03-11 10:41:05 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-03-11 13:20:19 +0100 |
| commit | 6a2992dc4b6582bd95b0cef1a674a99ca8299403 (patch) | |
| tree | 1f24dbf816ae98a349365cf9915bb88d51029ca5 /compiler/llvmGen/LlvmCodeGen/CodeGen.hs | |
| parent | 8626d76a723c2514bab91afb82e6b8b94fed2a2b (diff) | |
| download | haskell-6a2992dc4b6582bd95b0cef1a674a99ca8299403.tar.gz | |
Add MonadUnique instance for LlvmM
Reviewers: erikd, austin
Reviewed By: erikd
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1994
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen/CodeGen.hs')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index 4bc6248470..fa47d6ada3 100644 --- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs @@ -144,7 +144,7 @@ getInstrinct2 fname fty@(LMFunction funSig) = do return [] Nothing -> do funInsert fname fty - un <- runUs getUniqueM + un <- getUniqueM let lbl = mkAsmTempLabel un return [CmmData (Section Data lbl) [([],[fty])]] @@ -1783,7 +1783,7 @@ getHsFunc' name fty -- | Create a new local var mkLocalVar :: LlvmType -> LlvmM LlvmVar mkLocalVar ty = do - un <- runUs getUniqueM + un <- getUniqueM return $ LMLocalVar un ty |