1
1
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:
Rob Rix 2018-05-06 13:17:14 -04:00
parent 8e8c3b8476
commit b9a57e40bf

View File

@ -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)