File tree Expand file tree Collapse file tree 2 files changed +3
-3
lines changed Expand file tree Collapse file tree 2 files changed +3
-3
lines changed Original file line number Diff line number Diff line change 1+ #! /bin/sh
12function lbf {
23 cabal run lbf -- $@
34}
Original file line number Diff line number Diff line change @@ -77,11 +77,10 @@ type FrontendT m a = MonadIO m => ReaderT FrontRead (StateT FrontState (ExceptT
7777-- | Run a Frontend compilation action on a "lbf" file, return the entire compilation closure or a frontend error.
7878runFrontend :: MonadIO m => [FilePath ] -> FilePath -> m (Either FrontendError FrontendResult )
7979runFrontend importPaths modFp = do
80- let stM = runReaderT (processFile modFp) (FrontRead (ModuleName [] ( SourceInfo " " ( SourcePos 0 0 ) ( SourcePos 0 0 ) )) [] importPaths)
80+ let stM = runReaderT (processFile modFp) (FrontRead (ModuleName [] defaultSouceInfo )) [] importPaths)
8181 exM = runStateT stM (FrontState mempty )
8282 ioM = runExceptT exM
83- _ <- ioM
84- fmap (FrontendResult . importedModules . snd ) <$> ioM
83+ fmap (FrontendResult . importedModules . snd ) <$> runExceptT exM
8584
8685throwE' :: FrontendError -> FrontendT m a
8786throwE' = lift . lift . throwE
You can’t perform that action at this time.
0 commit comments