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 d3461b2..36947ad 100755 --- a/packages/special/lib/Numeric/GSL/Special/auto.hs +++ b/packages/special/lib/Numeric/GSL/Special/auto.hs | |||
@@ -66,7 +66,7 @@ main = do | |||
66 | let exports = rep (")",") where") $ rep ("(\n","(\n ") $ rep (",\n",", ") $ unlines $ ["("]++intersperse "," (map (\(Header _ n _) -> hName n) (filter safe parsed))++[")"] | 66 | let exports = rep (")",") where") $ rep ("(\n","(\n ") $ rep (",\n",", ") $ unlines $ ["("]++intersperse "," (map (\(Header _ n _) -> hName n) (filter safe parsed))++[")"] |
67 | let defs = unlines $ map (showFull (name ++".h")) parsed | 67 | let defs = unlines $ map (showFull (name ++".h")) parsed |
68 | let imports = "\nimport Foreign(Ptr)\n" | 68 | let imports = "\nimport Foreign(Ptr)\n" |
69 | ++"import Foreign.C.Types(CInt(..))\n" | 69 | ++"import Foreign.C.Types\n" |
70 | ++"import Numeric.GSL.Special.Internal\n" | 70 | ++"import Numeric.GSL.Special.Internal\n" |
71 | let mod = modhead name ++ "module Numeric.GSL.Special."++ upperFirst name++exports++imports++defs | 71 | let mod = modhead name ++ "module Numeric.GSL.Special."++ upperFirst name++exports++imports++defs |
72 | writeFile (upperFirst name ++ ".hs") mod | 72 | writeFile (upperFirst name ++ ".hs") mod |