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:
commit
124b45d36d
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user