github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-01 19:55:34 +03:00
Code Issues Projects Releases Wiki Activity

Remove redundant module names

Browse Source
This commit is contained in:
joshvera 2016-06-01 17:41:28 -04:00
parent 0157b6588c
commit 0c646d8a8c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Source.hs
View File

@ -30,8 +30,8 @@ newtype Source a = Source { getVector :: Vector.Vector a }
-- | Map blobs with Nothing blobKind to empty blobs.
idOrEmptySourceBlob :: SourceBlob -> SourceBlob
idOrEmptySourceBlob blob = if isNothing (Source.blobKind blob)
then (blob { Source.oid = nullOid, Source.blobKind = Nothing })
idOrEmptySourceBlob blob = if isNothing (blobKind blob)
then blob { oid = nullOid, blobKind = Nothing }
else blob
nullOid :: String