@@ -147,7 +147,8 @@ make opts ms = do
147 externs <- readTextFile externsFile
147 externs <- readTextFile externsFile
148 externsModules <- liftError . either (Left . show) Right $ P.runIndentParser externsFile P.parseModules externs
148 externsModules <- liftError . either (Left . show) Right $ P.runIndentParser externsFile P.parseModules externs
149 case externsModules of
149 case externsModules of
150− [Module moduleName'' typings _] | moduleName' == moduleName'' -> do
150+ [m@(Module moduleName'' _ _)] | moduleName' == moduleName'' -> do
151+ [Module _ typings _] <- liftError $ desugar [m]
151 (_, env') <- liftError . runCheck' env $ do
152 (_, env') <- liftError . runCheck' env $ do
152 modify (\s -> s { checkCurrentModule = Just moduleName' })
153 modify (\s -> s { checkCurrentModule = Just moduleName' })
153 typeCheckAll Nothing moduleName' typings
154 typeCheckAll Nothing moduleName' typings