1
1
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00

Merge pull request #514 from github/span-lazily

Make the Span field of a file lazy.
This commit is contained in:
Patrick Thomson 2020-03-11 20:07:30 -04:00 committed by GitHub
commit 124b45d36d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -16,7 +16,7 @@ import qualified System.Path.PartClass as Path.PartClass
data File a = File
{ filePath :: !Path.AbsRelFile
, fileSpan :: {-# UNPACK #-} !Span
, fileSpan :: Span
, fileBody :: !a
}
deriving (Eq, Foldable, Functor, Ord, Show, Traversable)