github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 08:25:19 +03:00
Code Issues Projects Releases Wiki Activity

I guess GHC thinks these UNPACKs are unusable.

Browse Source
This commit is contained in:
Patrick Thomson 2019-05-24 11:55:31 -04:00
parent 2b6bc89d26
commit 0fb8595617
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Blob.hs
View File

@ -36,8 +36,8 @@ import Data.Source as Source
-- | A 'FilePath' paired with its corresponding 'Language'. -- | A 'FilePath' paired with its corresponding 'Language'.
-- Unpacked to have the same size overhead as (FilePath, Language). -- Unpacked to have the same size overhead as (FilePath, Language).
data File = File data File = File
{ filePath :: {-# UNPACK #-} !FilePath { filePath :: FilePath
, fileLanguage :: {-# UNPACK #-} !Language , fileLanguage :: Language
} deriving (Show, Eq, Generic) } deriving (Show, Eq, Generic)
fileForPath :: FilePath -> File fileForPath :: FilePath -> File