github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +03:00
Code Issues Projects Releases Wiki Activity

Change SourceBlob blobKind to Maybe SourceKind

Browse Source
This commit is contained in:
joshvera 2016-03-03 16:44:43 -05:00
parent 3e47ce2dfa
commit b4d3f2164f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Source.hs
View File

@ -7,7 +7,7 @@ import qualified Data.Text as T
data SourceKind = PlainBlob | ExecutableBlob | SymlinkBlob
deriving (Show, Eq, Enum)
data SourceBlob = SourceBlob { source :: Source Char, oid :: String, path :: FilePath, blobKind :: SourceKind }
data SourceBlob = SourceBlob { source :: Source Char, oid :: String, path :: FilePath, blobKind :: Maybe SourceKind }
deriving (Show, Eq)
-- | The contents of a source file, backed by a vector for efficient slicing.