github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 05:11:44 +03:00
Code Issues Projects Releases Wiki Activity

Reformat Located.

Browse Source
This commit is contained in:
Rob Rix 2018-05-06 13:30:28 -04:00
parent 4c5734452a
commit a937e0dad1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Abstract/Located.hs
View File

@ -8,7 +8,11 @@ import Data.Abstract.Module (ModuleInfo)
import Data.Abstract.Package (PackageInfo)
import Prologue
data Located location = Located { location :: location, locationPackage :: {-# UNPACK #-} !PackageInfo, locationModule :: {-# UNPACK #-} !ModuleInfo }
data Located location = Located
{ location :: location
, locationPackage :: {-# UNPACK #-} !PackageInfo
, locationModule :: {-# UNPACK #-} !ModuleInfo
}
deriving (Eq, Ord, Show)
instance Location location => Location (Located location) where