From 20b8d37b4b2ec93fe25b9b6c782ae35173055571 Mon Sep 17 00:00:00 2001
From: Orion Kindel <orionkindel@gmail.com>
Date: Wed, 20 Dec 2023 20:24:31 -0600
Subject: [PATCH] fix: more functor

---
 src/Data.Range.purs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Data.Range.purs b/src/Data.Range.purs
index 3c02f65..9cc4f55 100644
--- a/src/Data.Range.purs
+++ b/src/Data.Range.purs
@@ -11,6 +11,10 @@ data RangeOrExact a
   = RangeNotExact (Range 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
   = BoundIncluding a
   | BoundExcluding a