github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-18 20:31:55 +03:00
Code Issues Projects Releases Wiki Activity

Import whack-a-mole.

Browse Source
This commit is contained in:
Patrick Thomson 2020-01-24 16:57:48 -05:00
parent 0e58b0cdde
commit 6af70476d0
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Data/Blob.hs
View File

@ -27,8 +27,7 @@ module Data.Blob
import Prologue import Prologue
import Analysis.File (fileBody) import Analysis.File (File (..))
import qualified Analysis.File
import Analysis.Language as Language import Analysis.Language as Language
import Control.Effect.Error import Control.Effect.Error
import Data.Aeson import Data.Aeson
@ -44,8 +43,8 @@ import qualified System.Path.PartClass as Path.PartClass
-- | The source, path information, and language of a file read from disk. -- | The source, path information, and language of a file read from disk.
data Blob = Blob data Blob = Blob
{ blobSource :: Source -- ^ The UTF-8 encoded source text of the blob. { blobSource :: Source -- ^ The UTF-8 encoded source text of the blob.
, blobFile :: File -- ^ Path/language information for this blob. , blobFile :: File Language -- ^ Path/language information for this blob.
} deriving (Show, Eq) } deriving (Show, Eq)
blobLanguage :: Blob -> Language blobLanguage :: Blob -> Language

2
src/Data/Blob/IO.hs
View File

@ -13,7 +13,7 @@ import Prologue
import Analysis.File as File import Analysis.File as File
import qualified Control.Concurrent.Async as Async import qualified Control.Concurrent.Async as Async
import Data.Blob hiding (File) import Data.Blob
import qualified Data.ByteString as B import qualified Data.ByteString as B
import Data.Language import Data.Language
import Semantic.IO import Semantic.IO