generated from tpl/purs
fix: more functor
This commit is contained in:
parent
3aa6dd1576
commit
20b8d37b4b
@ -11,6 +11,10 @@ data RangeOrExact a
|
|||||||
= RangeNotExact (Range a)
|
= RangeNotExact (Range a)
|
||||||
| RangeExact a
|
| RangeExact a
|
||||||
|
|
||||||
|
instance Functor RangeOrExact where
|
||||||
|
map f (RangeExact a) = RangeExact $ f a
|
||||||
|
map f (RangeNotExact r) = RangeNotExact $ map f r
|
||||||
|
|
||||||
data Bound a
|
data Bound a
|
||||||
= BoundIncluding a
|
= BoundIncluding a
|
||||||
| BoundExcluding a
|
| BoundExcluding a
|
||||||
|
Loading…
Reference in New Issue
Block a user