summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/auto.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/GSL/Special/auto.hs')
-rw-r--r--lib/Numeric/GSL/Special/auto.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/GSL/Special/auto.hs b/lib/Numeric/GSL/Special/auto.hs
index 011272c..b46e6c6 100644
--- a/lib/Numeric/GSL/Special/auto.hs
+++ b/lib/Numeric/GSL/Special/auto.hs
@@ -183,7 +183,7 @@ showCt (Pointer s) = s ++ "*"
183 183
184showCa (t, a) = showCt t ++" "++ a 184showCa (t, a) = showCt t ++" "++ a
185 185
186showH hc h@(Header t n args) = "foreign import ccall \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' 186showH hc h@(Header t n args) = "foreign import ccall SAFE_CHEAP \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t'
187 where t' | pure h = showHt t 187 where t' | pure h = showHt t
188 | otherwise = "IO "++showHt t 188 | otherwise = "IO "++showHt t
189 189