@@ -9,7 +9,6 @@ module Random.Token
99 , tokenWithContents
1010#ifndef ghcjs_HOST_OS
1111 , generateToken
12− , generateDelimitedToken
1312#endif
1413 ) where
1514
@@ -61,12 +60,6 @@ instance ToField (Token a) where
6160generateToken :: (MonadRandom m) => m (Token a)
6261generateToken = Token <$> R.getRandomBytes 16
6362
64−generateDelimitedToken :: (MonadRandom m) => Text -> Text -> m (Token a)
65−generateDelimitedToken prefix postFix =
66− Token . (preBS <>) . (<> postBS) <$> R.getRandomBytes 16
67− where
68− preBS = T.encodeUtf8 prefix
69− postBS = T.encodeUtf8 postFix
7063#endif
7164
7265instance FromHttpApiData (Token a) where