mirror of
https://github.com/github/semantic.git
synced 2024-12-25 16:02:43 +03:00
I guess GHC thinks these UNPACKs are unusable.
This commit is contained in:
parent
2b6bc89d26
commit
0fb8595617
@ -36,8 +36,8 @@ import Data.Source as Source
|
||||
-- | A 'FilePath' paired with its corresponding 'Language'.
|
||||
-- Unpacked to have the same size overhead as (FilePath, Language).
|
||||
data File = File
|
||||
{ filePath :: {-# UNPACK #-} !FilePath
|
||||
, fileLanguage :: {-# UNPACK #-} !Language
|
||||
{ filePath :: FilePath
|
||||
, fileLanguage :: Language
|
||||
} deriving (Show, Eq, Generic)
|
||||
|
||||
fileForPath :: FilePath -> File
|
||||
|
Loading…
Reference in New Issue
Block a user