diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-10-21 14:28:24 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-10-21 14:28:24 +0000 |
| commit | 14a496fd0b3aa821b69eb02736d5f41086576761 (patch) | |
| tree | ea4fd69e6840f9070dbc429e5dd6b28f17e52b80 /compiler/nativeGen/NCGMonad.hs | |
| parent | 00a05a5c09b097e3afa8d21058a3a4d8ed410ad4 (diff) | |
| download | haskell-14a496fd0b3aa821b69eb02736d5f41086576761.tar.gz | |
Switch more uniqFromSupply+splitUniqSupply's to takeUniqFromSupply
Diffstat (limited to 'compiler/nativeGen/NCGMonad.hs')
| -rw-r--r-- | compiler/nativeGen/NCGMonad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/NCGMonad.hs b/compiler/nativeGen/NCGMonad.hs index 409d0c42cf..8b9629b1d8 100644 --- a/compiler/nativeGen/NCGMonad.hs +++ b/compiler/nativeGen/NCGMonad.hs @@ -90,8 +90,8 @@ mapAccumLNat f b (x:xs) getUniqueNat :: NatM Unique getUniqueNat = NatM $ \ (NatM_State us delta imports pic dflags) -> - case splitUniqSupply us of - (us1,us2) -> (uniqFromSupply us1, (NatM_State us2 delta imports pic dflags)) + case takeUniqFromSupply us of + (uniq, us') -> (uniq, (NatM_State us' delta imports pic dflags)) getDynFlagsNat :: NatM DynFlags |