mirror of
https://github.com/github/semantic.git
synced 2024-12-22 06:11:49 +03:00
Add Generic instance to Range
This commit is contained in:
parent
d39d69436b
commit
a817d950dd
@ -10,7 +10,7 @@ import Test.QuickCheck
|
||||
|
||||
-- | A half-open interval of integers, defined by start & end indices.
|
||||
data Range = Range { start :: Int, end :: Int }
|
||||
deriving (Eq, Show)
|
||||
deriving (Eq, Show, Generic)
|
||||
|
||||
-- | Make a range at a given index.
|
||||
rangeAt :: Int -> Range
|
||||
|
Loading…
Reference in New Issue
Block a user