From 0ec6b06acee62b57a50ed9718b8da31fced18c4d Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Tue, 26 Jan 2021 18:04:14 -0500
Subject: Add user subscription field

Also improved the test situation, did some refactors, and now listing the user's
past analyses on their account page.
---
 Alpha.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Alpha.hs')

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
-- 
cgit v1.2.3