@@ -7,6 +7,7 @@ module Random.Token
77 , textToToken
88 , generateToken
99 , unsafeCoerceToken
10+ , tokenWithContents
1011 ) where
1112
1213import Control.DeepSeq
@@ -76,5 +77,8 @@ asciiToToken bs = Token <$> B64.decode bs
7677textToToken :: Text -> Either String (Token a)
7778textToToken = asciiToToken . T.encodeUtf8
7879
80+tokenWithContents :: Text -> Token a
81+tokenWithContents = Token . T.encodeUtf8
82+
7983unsafeCoerceToken :: Token a -> Token b
8084unsafeCoerceToken (Token a) = Token a