diff options
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/auto.hs')
-rwxr-xr-x | packages/special/lib/Numeric/GSL/Special/auto.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 ++ "*" | |||
186 | 186 | ||
187 | showCa (t, a) = showCt t ++" "++ a | 187 | showCa (t, a) = showCt t ++" "++ a |
188 | 188 | ||
189 | showH hc h@(Header t n args) = "foreign import ccall SAFE_CHEAP \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' | 189 | showH hc h@(Header t n args) = "foreign import ccall unsafe \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' |
190 | where t' | pure h = showHt t | 190 | where t' | pure h = showHt t |
191 | | otherwise = "IO "++showHt t | 191 | | otherwise = "IO "++showHt t |
192 | 192 | ||