From ca739e852566d7e0bfd594e6d7bf08da04f78d3c Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 31 Mar 2005 09:17:37 +0000 Subject: [PATCH] [project @ 2005-03-31 09:17:37 by simonmar] foreign import syntax --- ghc/compiler/basicTypes/UniqSupply.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/basicTypes/UniqSupply.lhs b/ghc/compiler/basicTypes/UniqSupply.lhs index 6992751..41ad5c0 100644 --- 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} -- 1.7.10.4