diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-02-20 13:14:04 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-02-20 13:14:04 +0000 |
| commit | bbf07a5b76cf196007adcfe2bfc954440843ce2f (patch) | |
| tree | 5c3162567bfdd6761b2217641f49dd9ef5480aae /lib/Numeric/GSL/Special/auto.hs | |
| parent | 7f94a70d57d44c1b0d63226684c008edde2678c9 (diff) | |
safe-cheap flag
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 | ||