1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00

Derive Num instances for Size and Cost.

This commit is contained in:
Rob Rix 2016-06-17 11:33:22 -04:00
parent e8c165fb15
commit 01d8c6ed91

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 ]