Commit 653711f2 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Use takeUniqFromSupply in ByteCodeGen

parent bd9398e1
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment