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, 4 insertions, 0 deletions

diff --git a/Alpha.hs b/Alpha.hs
index c14f03f..788a125 100644
--- a/Alpha.hs
+++ b/Alpha.hs
@@ -45,6 +45,7 @@ module Alpha
     don't,
 
     -- * Text
+    tshow,
     chomp,
     lchomp,
     joinWith,
@@ -189,3 +190,6 @@ wrap lim = Text.words .> wrap_ 0 .> Text.unwords
       | otherwise = w : wrap_ (pos + lw + 1) ws
       where
         lw = Text.length w
+
+tshow :: Show a => a -> Text
+tshow = show