summaryrefslogtreecommitdiff
path: root/Generate.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Generate.hs')
-rw-r--r--Generate.hs2
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 {-