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

Derive Eq & Show instances for Size & Cost.

Browse Source
This commit is contained in:
Rob Rix 2016-06-17 11:25:45 -04:00
parent b8ddaaaaf0
commit f6f067c638
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Info.hs
View File

@ -1,4 +1,4 @@
{-# LANGUAGE DataKinds, FlexibleContexts #-}
{-# LANGUAGE DataKinds, FlexibleContexts, GeneralizedNewtypeDeriving #-}
module Info where
import Data.Record
@ -7,7 +7,9 @@ import Category
import Range
newtype Size = Size { unSize :: Integer }
deriving (Eq, Show)
newtype Cost = Cost { unCost :: Integer }
deriving (Eq, Show)
type InfoFields = '[ Range, Category, Size, Cost ]