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 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