Add more deriving clauses

2022-07-25 09:26:41 +01:00
parent c3a5b9d5be
commit d62e14cdb5
8 changed files with 22 additions and 13 deletions
@@ -10,6 +10,7 @@ data Bounds = Bounds
    , _bdMinY            :: Float
    , _bdMaxY            :: Float
    }
+  deriving (Eq,Ord,Show,Read)
 defaultBounds :: Bounds
 defaultBounds = Bounds 0 0 0 0