github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-23 16:37:50 +03:00
Code Issues Projects Releases Wiki Activity

last few changes

Browse Source
This commit is contained in:
Patrick Thomson 2018-06-12 14:05:57 -04:00
parent 9c758ad3fe
commit 4d8fe33ad4
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Semantic/Graph.hs
View File

@ -27,13 +27,12 @@ import Data.Abstract.Package as Package
import Data.Abstract.Value (Value, ValueError (..), runValueErrorWith)
import Data.Graph
import Data.Project
import qualified Data.Project as Project (readFile, Concrete)
import qualified Data.Project as Project
import Data.Record
import Data.Term
import Data.Text (pack)
import Parsing.Parser
import Prologue hiding (MonadError (..))
import Semantic.IO (Files)
import Semantic.Task as Task
data GraphType = ImportGraph | CallGraph
@ -94,7 +93,7 @@ parseModule proj parser file = do
mBlob <- Project.readFile proj file
case mBlob of
Just blob -> moduleForBlob (Just (projectRootDir proj)) blob <$> parse parser blob
Nothing -> error ("file not found: " <> show file)
Nothing -> throwError (SomeException (Project.FileNotFound (Project.filePath file)))
withTermSpans :: ( HasField fields Span
, Member (Reader Span) effects

2
src/Semantic/Resolution.hs
View File

@ -5,7 +5,7 @@ import Control.Monad.Effect
import Data.Aeson
import Data.Aeson.Types (parseMaybe)
import Data.Blob
import Data.Project hiding (findFiles)
import Data.Project
import qualified Data.Project as Project (Concrete)
import qualified Data.Map as Map
import Data.Source