fix(Action): fix there are multiple module_info functions

hamler-lang · Jun 24, 2020 · 6b68a28 · 6b68a28
1 parent 9e58be7
commit 6b68a28
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Language/Hamler/Make/Actions.hs b/src/Language/Hamler/Make/Actions.hs
@@ -168,4 +168,5 @@ buildMakeActions isInline outputDir filePathMap foreigns _ =
 splitErlangCore :: T.Text -> (T.Text,T.Text)
 splitErlangCore f =
   let (a,b) = L.span (\c -> T.head c /= '\'') $ T.lines f
-  in (T.unlines a , T.unlines $ take (length b - 9)  b <> ["end"])
+      (c,_) = L.span ( /= "\'module_info\'/0 =" ) b
+  in (T.unlines a , T.unlines $ c <> ["end"])