From 6e0d1f4fdc346860e76796e914cccc0f0093c223 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Fri, 24 Jan 2020 17:02:04 -0500 Subject: [PATCH] Use fromSource here. --- src/Data/Blob.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Data/Blob.hs b/src/Data/Blob.hs index 4e4292f38..f03e113df 100644 --- a/src/Data/Blob.hs +++ b/src/Data/Blob.hs @@ -62,7 +62,7 @@ instance FromJSON Blob where Right pth <- fmap Path.parse (b .: "path") lang <- b .: "language" let lang' = if knownLanguage lang then lang else Language.forPath pth - pure (Blob src (Analysis.File.File pth (totalSpan src) lang')) + pure (fromSource pth lang' src) nullBlob :: Blob -> Bool nullBlob Blob{..} = Source.null blobSource