diff --git a/src/Range.hs b/src/Range.hs
index fe6cfc8c7..04d5f4a12 100644
--- a/src/Range.hs
+++ b/src/Range.hs
@@ -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