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 Analysis.File (fileBody)
import qualified Analysis.File
import Analysis.File (File (..))
import Analysis.Language as Language
import Control.Effect.Error
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.
data Blob = Blob
{ blobSource :: Source -- ^ The UTF-8 encoded source text of the blob.
, blobFile :: File -- ^ Path/language information for this blob.
{ blobSource :: Source -- ^ The UTF-8 encoded source text of the blob.
, blobFile :: File Language -- ^ Path/language information for this blob.
} deriving (Show, Eq)
blobLanguage :: Blob -> Language

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

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