github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 13:51:44 +03:00
Code Issues Projects Releases Wiki Activity

cleanup imports

Browse Source
This commit is contained in:
joshvera 2018-04-24 16:32:57 -04:00
parent 48c471e9d6
commit 6c4f1c33bd
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Semantic/Graph.hs
View File

@ -23,11 +23,8 @@ import Data.Output
import Parsing.Parser import Parsing.Parser
import Prologue hiding (MonadError (..)) import Prologue hiding (MonadError (..))
import Rendering.Renderer import Rendering.Renderer
import Semantic.IO (Files, NoLanguageForBlob (..)) import Semantic.IO (Files)
import Semantic.Task import Semantic.Task
import Data.Language (Language)
import qualified Data.Abstract.ModuleTable as ModuleTable
import qualified Data.ByteString.Char8 as B
graph :: (Members '[Distribute WrappedTask, Files, Task, Exc SomeException, Telemetry] effs) graph :: (Members '[Distribute WrappedTask, Files, Task, Exc SomeException, Telemetry] effs)
=> GraphRenderer output => GraphRenderer output
@ -54,7 +51,7 @@ parsePackage parser preludeFile project@Project{..} = do
-- | Parse all files in a project into 'Module's. -- | Parse all files in a project into 'Module's.
parseModules :: Members '[Distribute WrappedTask, Files, Task] effs => Parser term -> Project -> Eff effs [Module term] parseModules :: Members '[Distribute WrappedTask, Files, Task] effs => Parser term -> Project -> Eff effs [Module term]
parseModules parser project@Project{..} = distributeFor (projectEntryPoints <> projectFiles) (WrapTask . parseModule parser (Just projectRootDir)) parseModules parser Project{..} = distributeFor (projectEntryPoints <> projectFiles) (WrapTask . parseModule parser (Just projectRootDir))
-- | Parse a file into a 'Module'. -- | Parse a file into a 'Module'.
parseModule :: Members '[Files, Task] effs => Parser term -> Maybe FilePath -> File -> Eff effs (Module term) parseModule :: Members '[Files, Task] effs => Parser term -> Maybe FilePath -> File -> Eff effs (Module term)