diff options
Diffstat (limited to 'ghc/compiler/specialise')
| -rw-r--r-- | ghc/compiler/specialise/Specialise.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/specialise/Specialise.lhs b/ghc/compiler/specialise/Specialise.lhs index 080fd0ec00..87d41a069f 100644 --- a/ghc/compiler/specialise/Specialise.lhs +++ b/ghc/compiler/specialise/Specialise.lhs @@ -32,7 +32,7 @@ import PprCore () -- Instances import SpecEnv ( addToSpecEnv ) import UniqSupply ( UniqSupply, - UniqSM, initUs, thenUs, thenUs_, returnUs, getUniqueUs, + UniqSM, initUs_, thenUs, thenUs_, returnUs, getUniqueUs, getUs, setUs, uniqFromSupply, splitUniqSupply, mapUs ) import Name ( nameOccName, mkSpecOcc, getSrcLoc ) @@ -1139,7 +1139,7 @@ getUniqSM = getUniqueUs getUniqSupplySM = getUs setUniqSupplySM = setUs mapSM = mapUs -initSM = initUs +initSM = initUs_ mapAndCombineSM f [] = returnSM ([], emptyUDs) mapAndCombineSM f (x:xs) = f x `thenSM` \ (y, uds1) -> |