[fix] stdlib: quick fix for opapro

MLstate · Feb 20, 2013 · aecb403 · aecb403
1 parent 3ed1990
commit aecb403
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/stdlib/crypto/crypto.opa b/lib/stdlib/crypto/crypto.opa
@@ -422,10 +422,12 @@ Crypto = {{
      */
     new_key = %% BslCrypto.rsa_new_key %% : int -> Crypto.RSA.key
 
+    #<Ifstatic:OPA_BACKEND_QMLJS>
     /**
      * Read a RSA key from a PEM file.
      */
     read_key = %% BslCrypto.read_rsa_key %% : string, option(string), option(string) -> Crypto.RSA.key
+    #<End>
 
     /**
      * Encrypt a binary data with a certain RSA key.
@@ -439,7 +441,7 @@ Crypto = {{
     decrypt = %% BslCrypto.rsa_decrypt %% : Crypto.RSA.key, binary -> option(binary)
 
   }}
-
+  #<Ifstatic:OPA_BACKEND_QMLJS>
   Cipher = {{
 
     generic_encrypt = %% BslCrypto.cipher_encrypt %% : string, binary, binary -> option(binary)
@@ -453,5 +455,6 @@ Crypto = {{
     aes256_decrypt = generic_decrypt("aes256", _, _)
 
   }}
+  #<End>
 
 }}