reduce js dependencies

Author: odr

random-token.cabal

@@ -17,12 +17,13 @@ library
                      , aeson
                      , base64-bytestring
                      , bytestring
-                     , cryptonite
                      , deepseq
                      , http-api-data
                      , text
   if !(impl(ghcjs) || arch(javascript))
-    build-depends:     postgresql-simple
+    build-depends:     cryptonite
+                     , postgresql-simple
+                     ,
   default-language:    Haskell2010
   default-extensions: CPP
                     , ConstraintKinds

src/Random/Token.hs

@@ -5,9 +5,11 @@ module Random.Token
   , tokenToText
   , asciiToToken
   , textToToken
-  , generateToken
   , unsafeCoerceToken
   , tokenWithContents
+#ifndef ghcjs_HOST_OS
+  , generateToken
+#endif
   ) where
 
 import Control.DeepSeq
@@ -22,9 +24,9 @@ import Data.Typeable
 import Test.QuickCheck.Arbitrary
 import Web.HttpApiData
 
-import Crypto.Random as R
 
 #ifndef ghcjs_HOST_OS
+import Crypto.Random as R
 import Database.PostgreSQL.Simple.FromField
 import Database.PostgreSQL.Simple.ToField
 #endif
@@ -54,11 +56,12 @@ instance forall a. (Typeable (Token a), Typeable a) => FromField (Token a) where
 
 instance ToField (Token a) where
   toField = toField . tokenToText
-#endif
 
 generateToken :: (MonadRandom m) => m (Token a)
 generateToken = Token <$> R.getRandomBytes 16
 
+#endif
+
 instance FromHttpApiData (Token a) where
   parseQueryParam = first T.pack . textToToken