From f8b7b3734fa6bb8d63914719e09d17940add27d4 Mon Sep 17 00:00:00 2001 From: Clark Gaebel Date: Sat, 10 Mar 2012 18:26:56 -0500 Subject: Removed foreign import safety. --- packages/special/lib/Numeric/GSL/Special/auto.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'packages/special/lib/Numeric/GSL/Special/auto.hs') diff --git a/packages/special/lib/Numeric/GSL/Special/auto.hs b/packages/special/lib/Numeric/GSL/Special/auto.hs index 36947ad..d628eff 100755 --- a/packages/special/lib/Numeric/GSL/Special/auto.hs +++ b/packages/special/lib/Numeric/GSL/Special/auto.hs @@ -186,7 +186,7 @@ showCt (Pointer s) = s ++ "*" showCa (t, a) = showCt t ++" "++ a -showH hc h@(Header t n args) = "foreign import ccall SAFE_CHEAP \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' +showH hc h@(Header t n args) = "foreign import ccall unsafe \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' where t' | pure h = showHt t | otherwise = "IO "++showHt t -- cgit v1.2.3