Move to Api package and add native implementation

Author: palas

cardano-wasm/cardano-wasm.cabal

@@ -42,14 +42,14 @@ executable cardano-wasm
     Cardano.Wasm.Internal.Api.GRPC
     Cardano.Wasm.Internal.Api.Info
     Cardano.Wasm.Internal.Api.InfoToTypeScript
+    Cardano.Wasm.Internal.Api.Random
     Cardano.Wasm.Internal.Api.Tx
     Cardano.Wasm.Internal.Api.TypeScriptDefs
     Cardano.Wasm.Internal.Api.Wallet
     Cardano.Wasm.Internal.ExceptionHandling
     Cardano.Wasm.Internal.JavaScript.Bridge
     Cardano.Wasm.Internal.JavaScript.GRPC
     Cardano.Wasm.Internal.JavaScript.GRPCTypes
-    Cardano.Wasm.Internal.JavaScript.Random
 
   build-depends:
     aeson,
@@ -74,6 +74,9 @@ executable cardano-wasm
       base16-bytestring,
       ghc-experimental,
       utf8-string,
+  else
+    build-depends:
+      crypton
 
 test-suite cardano-wasm-golden
   type: exitcode-stdio-1.0

cardano-wasm/src/Cardano/Wasm/Internal/JavaScript/Random.hs renamed to cardano-wasm/src/Cardano/Wasm/Internal/Api/Random.hs

@@ -1,14 +1,15 @@
 {-# LANGUAGE CApiFFI #-}
 {-# LANGUAGE CPP #-}
 
-module Cardano.Wasm.Internal.JavaScript.Random (getRandomBytes) where
+module Cardano.Wasm.Internal.Api.Random (getRandomBytes) where
 
 #if !defined(wasm32_HOST_ARCH)
 
 import Data.ByteString (ByteString)
+import Crypto.Random.Entropy (getEntropy)
 
 getRandomBytes :: Word -> IO ByteString
-getRandomBytes _ = error "getRandomBytes is not implemented for non-WASM targets"
+getRandomBytes n = getEntropy (fromIntegral n)
 
 #else
 

cardano-wasm/src/Cardano/Wasm/Internal/Api/Wallet.hs

@@ -38,8 +38,8 @@ import Cardano.Api
   )
 
 import Cardano.Crypto.Seed (mkSeedFromBytes)
+import Cardano.Wasm.Internal.Api.Random (getRandomBytes)
 import Cardano.Wasm.Internal.ExceptionHandling (rightOrError, toMonadFail)
-import Cardano.Wasm.Internal.JavaScript.Random (getRandomBytes)
 
 import Data.Aeson ((.=))
 import Data.Aeson qualified as Aeson