@@ -33,7 +33,7 @@ import Data.List (intercalate)
3333import Data.Maybe (mapMaybe)
3434import Control.Monad (when, forM)
3535import Control.Monad.State.Lazy
36−import Control.Applicative ((<$>))
36+import Control.Applicative ((<$>), (<|>))
3737import qualified Data.Map as M
3838
3939-- |
@@ -63,7 +63,7 @@ compile opts ms = do
6363 modify (\s -> s { checkCurrentModule = Just (ModuleName moduleName) })
6464 Module moduleName <$> typeCheckAll (ModuleName moduleName) decls
6565 regrouped <- createBindingGroupsModule . collapseBindingGroupsModule $ elaborated
66− let entryPoint = optionsEntryPoint opts
66+ let entryPoint = optionsEntryPoint opts <|> if (optionsRunMain opts) then Just "Main" else Nothing
6767 let elim = maybe regrouped (\ep -> eliminateDeadCode env ep regrouped) entryPoint
6868 let js = mapMaybe (flip (moduleToJs opts) env) elim
6969 let exts = intercalate "\n" . map (flip moduleToPs env) $ elim