1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00

I guess GHC thinks these UNPACKs are unusable.

This commit is contained in:
Patrick Thomson 2019-05-24 11:55:31 -04:00
parent 2b6bc89d26
commit 0fb8595617

View File

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