github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

Derive Num instances for Size and Cost.

Browse Source
This commit is contained in:
Rob Rix 2016-06-17 11:33:22 -04:00
parent e8c165fb15
commit 01d8c6ed91
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/Info.hs
View File

@ -7,9 +7,9 @@ import Category
import Range import Range
newtype Size = Size { unSize :: Integer } newtype Size = Size { unSize :: Integer }
deriving (Eq, Show) deriving (Eq, Num, Show)
newtype Cost = Cost { unCost :: Integer } newtype Cost = Cost { unCost :: Integer }
deriving (Eq, Show) deriving (Eq, Num, Show)
type InfoFields = '[ Range, Category, Size, Cost ] type InfoFields = '[ Range, Category, Size, Cost ]