@@ -33,7 +33,7 @@ import Data.List (intercalate)
33import Data.Maybe (mapMaybe)
33import Data.Maybe (mapMaybe)
34import Control.Monad (when, forM)
34import Control.Monad (when, forM)
35import Control.Monad.State.Lazy
35import Control.Monad.State.Lazy
36−import Control.Applicative ((<$>))
36+import Control.Applicative ((<$>), (<|>))
37import qualified Data.Map as M
37import qualified Data.Map as M
@@ -63,7 +63,7 @@ compile opts ms = do
63 modify (\s -> s { checkCurrentModule = Just (ModuleName moduleName) })
63 modify (\s -> s { checkCurrentModule = Just (ModuleName moduleName) })
64 Module moduleName <$> typeCheckAll (ModuleName moduleName) decls
64 Module moduleName <$> typeCheckAll (ModuleName moduleName) decls
65 regrouped <- createBindingGroupsModule . collapseBindingGroupsModule $ elaborated
65 regrouped <- createBindingGroupsModule . collapseBindingGroupsModule $ elaborated
66− let entryPoint = optionsEntryPoint opts
66+ let entryPoint = optionsEntryPoint opts <|> if (optionsRunMain opts) then Just "Main" else Nothing
67 let elim = maybe regrouped (\ep -> eliminateDeadCode env ep regrouped) entryPoint
67 let elim = maybe regrouped (\ep -> eliminateDeadCode env ep regrouped) entryPoint
68 let js = mapMaybe (flip (moduleToJs opts) env) elim
68 let js = mapMaybe (flip (moduleToJs opts) env) elim
69 let exts = intercalate "\n" . map (flip moduleToPs env) $ elim
69 let exts = intercalate "\n" . map (flip moduleToPs env) $ elim