Add mapOccEnv

[ghc-hetmet.git] / ghc / compiler / basicTypes / UniqSupply.lhs

diff --git a/ghc/compiler/basicTypes/UniqSupply.lhs b/ghc/compiler/basicTypes/UniqSupply.lhs
index 6992751..41ad5c0 100644 (file)
--- a/ghc/compiler/basicTypes/UniqSupply.lhs
+++ b/ghc/compiler/basicTypes/UniqSupply.lhs
@@ -84,7 +84,7 @@ mkSplitUniqSupply (C# c#)
     in
     mk_supply#
 
-foreign import ccall "genSymZh" unsafe genSymZh :: IO Word
+foreign import ccall unsafe "genSymZh" genSymZh :: IO Word
 
 splitUniqSupply (MkSplitUniqSupply _ s1 s2) = (s1, s2)
 \end{code}