From f12675667251d1caf63a1f8c6b5ec6b9a035f523 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Thu, 14 Sep 2017 11:49:41 -0400
Subject: [PATCH] Derive Eq, Ord, & Show instances for FeatureVector.

---
 src/RWS.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/RWS.hs b/src/RWS.hs
index bcd0337c7..be4124968 100644
--- a/src/RWS.hs
+++ b/src/RWS.hs
@@ -43,6 +43,7 @@ type Label f fields label = forall b. TermF f (Record fields) b -> label
 type ComparabilityRelation syntax ann1 ann2 = forall a b. TermF syntax ann1 a -> TermF syntax ann2 b -> Bool
 
 newtype FeatureVector = FV { unFV :: UArray Int Double }
+  deriving (Eq, Ord, Show)
 
 -- | A term which has not yet been mapped by `rws`, along with its feature vector summary & index.
 data UnmappedTerm syntax ann = UnmappedTerm