summaryrefslogtreecommitdiff
path: root/packages/special/lib/Numeric/GSL/Special/auto.hs
diff options
context:
space:
mode:
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/auto.hs')
-rwxr-xr-xpackages/special/lib/Numeric/GSL/Special/auto.hs2
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 d628eff..36947ad 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
187showCa (t, a) = showCt t ++" "++ a 187showCa (t, a) = showCt t ++" "++ a
188 188
189showH hc h@(Header t n args) = "foreign import ccall unsafe \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' 189showH hc h@(Header t n args) = "foreign import ccall SAFE_CHEAP \""++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