git.iko.soy/typeable/random-token
on master help sign in
SS0-467 Limit user SFNs according to the Apps settings (#6148)
429bc6fVille Tirronen
src/Random/Token.hs+4
compare with master
unifiedsplit
@@ -7,6 +7,7 @@ module Random.Token
7 , textToToken
7 , textToToken
8 , generateToken
8 , generateToken
9 , unsafeCoerceToken
9 , unsafeCoerceToken
10+ , tokenWithContents
10 ) where
11 ) where
11
12
12import Control.DeepSeq
13import Control.DeepSeq
@@ -76,5 +77,8 @@ asciiToToken bs = Token <$> B64.decode bs
76textToToken :: Text -> Either String (Token a)
77textToToken :: Text -> Either String (Token a)
77textToToken = asciiToToken . T.encodeUtf8
78textToToken = asciiToToken . T.encodeUtf8
78
79
80+tokenWithContents :: Text -> Token a
81+tokenWithContents = Token . T.encodeUtf8
82+
79unsafeCoerceToken :: Token a -> Token b
83unsafeCoerceToken :: Token a -> Token b
80unsafeCoerceToken (Token a) = Token a
84unsafeCoerceToken (Token a) = Token a