[#16] Included a hack to remove the unused lambda argument

Updated core ref
ohua-dev · Jan 17, 2019 · 27ecb0b · 27ecb0b
1 parent 82d2e6c
commit 27ecb0b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -16,6 +16,7 @@ import Options.Applicative.Help.Pretty as O
 import System.Directory (createDirectoryIfMissing)
 import qualified System.FilePath as FP ((-<.>), takeDirectory)
 
+import Ohua.ALang.Lang
 import Ohua.Frontend.NS
 import Ohua.CodeGen.Iface
 import qualified Ohua.CodeGen.JSONObject as JSONGen
@@ -172,7 +173,11 @@ main = do
                 mainMod <-
                     registerAnd modTracker (rawMainMod ^. name) $
                     loadDepsAndResolve modTracker rawMainMod
-                expr <- getMain $ mainMod ^. decls
+                expr' <- getMain $ mainMod ^. decls
+                let expr = case expr' of
+                               -- FIXME this is technically not correct for edge cases
+                               Lambda "_" body -> body
+                               e -> e
                 let sfDeps = gatherSFDeps expr
                 let (mainArity, completeExpr) = mainToEnv expr
                 gr <-
@@ -194,7 +199,7 @@ main = do
                             , entryPointName = entrypoint
                             , entryPointNamespace = rawMainMod ^. name
                             }
-                let outputPath = fromMaybe (nameSuggest) out
+                let outputPath = fromMaybe nameSuggest out
                 liftIO $
                     createDirectoryIfMissing
                         True

diff --git a/stack.yaml b/stack.yaml
@@ -3,7 +3,7 @@ packages:
 - .
 - location:
     git: https://github.com/ohua-dev/ohua-core
-    commit: 2933632f8dfcc39ca52c43e50a901b7193955a59 
+    commit: 2da314763bb839ef0c0f7f191382f266455c26c6
   subdirs: [core]
   extra-dep: true
 - location: