diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/auto.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/auto.hs | 2 |
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 | ||
184 | showCa (t, a) = showCt t ++" "++ a | 184 | showCa (t, a) = showCt t ++" "++ a |
185 | 185 | ||
186 | showH hc h@(Header t n args) = "foreign import ccall \""++n++"\" "++n++" :: "++ (concat$intersperse" -> "$map showHa args) ++" -> " ++ t' | 186 | showH 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 | ||