mirror of
https://github.com/github/semantic.git
synced 2024-12-24 15:35:14 +03:00
Unpack the package & module info.
This commit is contained in:
parent
8e8c3b8476
commit
b9a57e40bf
@ -4,8 +4,8 @@ import Data.Abstract.Module
|
||||
import Data.Abstract.Package
|
||||
|
||||
data Origin term = Origin
|
||||
{ originPackage :: PackageInfo
|
||||
, originModule :: ModuleInfo
|
||||
{ originPackage :: {-# UNPACK #-} PackageInfo
|
||||
, originModule :: {-# UNPACK #-} ModuleInfo
|
||||
, originTerm :: term
|
||||
}
|
||||
deriving (Eq, Foldable, Functor, Ord, Show, Traversable)
|
||||
|
Loading…
Reference in New Issue
Block a user