From: Ian Lynagh <igloo@earth.li>
Date: Thu, 21 Oct 2010 12:14:54 +0000 (+0000)
Subject: Use takeUniqFromSupply in ByteCodeGen
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=653711f2f3b7308c494cbf6092da7f42c848a16c;p=ghc-hetmet.git

Use takeUniqFromSupply in ByteCodeGen
---

diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs
index d654586..4358515 100644
--- a/compiler/ghci/ByteCodeGen.lhs
+++ b/compiler/ghci/ByteCodeGen.lhs
@@ -1565,9 +1565,9 @@ getBreakArray = BcM $ \st -> return (st, breakArray st)
 
 newUnique :: BcM Unique
 newUnique = BcM $
-   \st -> case splitUniqSupply (uniqSupply st) of
-             (us1, us2) -> let newState = st { uniqSupply = us2 } 
-                           in  return (newState, uniqFromSupply us1) 
+   \st -> case takeUniqFromSupply (uniqSupply st) of
+             (uniq, us) -> let newState = st { uniqSupply = us }
+                           in  return (newState, uniq)
 
 newId :: Type -> BcM Id
 newId ty = do