error happens in plutus-ledger

IntersectMBO · Jul 29, 2021 · d2d488a · d2d488a
1 parent eab5795
commit d2d488a
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 10 deletions.
diff --git a/plutus-tx/src/PlutusTx/Builtins.hs b/plutus-tx/src/PlutusTx/Builtins.hs
@@ -69,11 +69,19 @@ import           Data.ByteString            as BS
 import           Prelude                    hiding (String, error)
 
 import           PlutusTx.Builtins.Class
-import           PlutusTx.Builtins.Internal (BuiltinData, BuiltinString, BuiltinByteString, toHaskellByteString, fromHaskellByteString)
+import           PlutusTx.Builtins.Internal (BuiltinByteString, BuiltinData, BuiltinString)
 import qualified PlutusTx.Builtins.Internal as BI
 
-import           Prelude             hiding (String, error)
+import           Prelude                    hiding (String, error)
+
+
+{-# INLINABLE fromHaskellByteString #-}
+fromHaskellByteString :: BS.ByteString -> BuiltinByteString
+fromHaskellByteString = BI.BuiltinByteString
 
+{-# INLINABLE toHaskellByteString #-}
+toHaskellByteString :: BuiltinByteString -> BS.ByteString
+toHaskellByteString = BI.unBuiltinByteString
 
 {-# INLINABLE concatenate #-}
 -- | Concatenates two 'ByteString's.

diff --git a/plutus-tx/src/PlutusTx/Builtins/Internal.hs b/plutus-tx/src/PlutusTx/Builtins/Internal.hs
@@ -12,20 +12,20 @@
 module PlutusTx.Builtins.Internal where
 
 import           Codec.Serialise
-import           Control.DeepSeq          (NFData)
+import           Control.DeepSeq       (NFData)
 import qualified Crypto
-import qualified Data.ByteArray           as BA
-import           Data.ByteString      as BS
-import           Data.ByteString.Char8      as Char8
-import qualified Data.ByteString.Hash as Hash
-import           GHC.Generics             (Generic)
-import           Data.Hashable            (Hashable)
+import qualified Data.ByteArray        as BA
+import           Data.ByteString       as BS
+import           Data.ByteString.Char8 as Char8
+import qualified Data.ByteString.Hash  as Hash
 import           Data.Coerce
 import           Data.Maybe           (fromMaybe)
 import           Data.Text.Prettyprint.Doc   (Pretty(..), viaShow)
 import qualified PlutusCore.Data      as PLC
+import           Data.Hashable         (Hashable)
+import           GHC.Generics          (Generic)
 import           PlutusTx.Utils
-import           Prelude                  as Haskell
+import           Prelude               as Haskell
 
 {- Note [Builtin name definitions]
 The builtins here have definitions so they can be used in off-chain code too.