Add user subscription field

Also improved the test situation, did some refactors, and now listing the user's
past analyses on their account page.

1 files changed, 7 insertions, 0 deletions

diff --git a/Biz/Id.hs b/Biz/Id.hs
index 89c74bf..9bce013 100644
--- a/Biz/Id.hs
+++ b/Biz/Id.hs
@@ -40,3 +40,10 @@ instance FromJSON (Id entity) where
 
 instance ToJSON (Id entity) where
   toJSON = toJSON <. untag
+
+-- this is just provided to satisfy Monoid, no reason to actually use it
+instance Semigroup (Id entity) where
+  a <> b = mk (Proxy :: Proxy entity) <| untag a + untag b
+
+instance Monoid (Id entity) where
+  mempty = mk (Proxy :: Proxy entity) 0