work around a bug in Yesod

The PathPiece instance for Text results in a 404 for T.empty.

1 files changed, 13 insertions, 0 deletions

diff --git a/Assistant/Pairing.hs b/Assistant/Pairing.hs
index de69d8410..ca0cc2f39 100644
--- a/Assistant/Pairing.hs
+++ b/Assistant/Pairing.hs
@@ -13,6 +13,8 @@ import Assistant.Ssh
 
 import Control.Concurrent
 import Network.Socket
+import Data.Char
+import qualified Data.Text as T
 
 data PairStage
 	{- "I'll pair with anybody who shares the secret that can be used
@@ -68,3 +70,14 @@ data PairingInProgress = PairingInProgress
 
 data SomeAddr = IPv4Addr HostAddress | IPv6Addr HostAddress6
 	deriving (Ord, Eq, Read, Show)
+
+{- This contains the whole secret, just lightly obfuscated to make it not
+ - too obvious. It's only displayed in the user's web browser. -}
+data SecretReminder = SecretReminder [Int]
+	deriving (Show, Eq, Ord, Read)
+
+toSecretReminder :: T.Text -> SecretReminder
+toSecretReminder = SecretReminder . map ord . T.unpack
+
+fromSecretReminder :: SecretReminder -> T.Text
+fromSecretReminder (SecretReminder s) = T.pack $ map chr s