diff options
Diffstat (limited to 'Generate.hs')
-rw-r--r-- | Generate.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Generate.hs b/Generate.hs index 4eea1dc..5f5c0d0 100644 --- a/Generate.hs +++ b/Generate.hs | |||
@@ -25,6 +25,7 @@ main = do | |||
25 | dataSwift <- eitherParseFile "templates/data.swift.ede" | 25 | dataSwift <- eitherParseFile "templates/data.swift.ede" |
26 | dataJava <- eitherParseFile "templates/data.java.ede" | 26 | dataJava <- eitherParseFile "templates/data.java.ede" |
27 | dataHpp <- eitherParseFile "templates/data.hpp.ede" | 27 | dataHpp <- eitherParseFile "templates/data.hpp.ede" |
28 | dataHpp2 <- eitherParseFile "templates/data.hpp2.ede" | ||
28 | dataCpp <- eitherParseFile "templates/data.cpp.ede" | 29 | dataCpp <- eitherParseFile "templates/data.cpp.ede" |
29 | dataCs <- eitherParseFile "templates/data.cs.ede" | 30 | dataCs <- eitherParseFile "templates/data.cs.ede" |
30 | dataHs <- eitherParseFile "templates/data.hs.ede" | 31 | dataHs <- eitherParseFile "templates/data.hs.ede" |
@@ -57,6 +58,7 @@ main = do | |||
57 | -- Purescript | 58 | -- Purescript |
58 | either error (\x -> writeFile ("out/" ++ name ++ ".purs") $ LText.unpack x) $ dataPs >>= (\t -> eitherRenderWith mylib t env) | 59 | either error (\x -> writeFile ("out/" ++ name ++ ".purs") $ LText.unpack x) $ dataPs >>= (\t -> eitherRenderWith mylib t env) |
59 | -- C++ | 60 | -- C++ |
61 | either error (\x -> writeFile ("out/" ++ name ++ "2.hpp") $ LText.unpack x) $ dataHpp2 >>= (\t -> eitherRenderWith mylib t env) | ||
60 | either error (\x -> writeFile ("out/" ++ name ++ ".hpp") $ LText.unpack x) $ dataHpp >>= (\t -> eitherRenderWith mylib t env) | 62 | either error (\x -> writeFile ("out/" ++ name ++ ".hpp") $ LText.unpack x) $ dataHpp >>= (\t -> eitherRenderWith mylib t env) |
61 | either error (\x -> writeFile ("out/" ++ name ++ ".cpp") $ LText.unpack x) $ dataCpp >>= (\t -> eitherRenderWith mylib t env) | 63 | either error (\x -> writeFile ("out/" ++ name ++ ".cpp") $ LText.unpack x) $ dataCpp >>= (\t -> eitherRenderWith mylib t env) |
62 | {- | 64 | {- |