Remove mkCurrencySymbolUnsafe, use constructor instead

Plutonomicon · Sep 26, 2023 · 08baebd · 08baebd
1 parent 008ce4f
commit 08baebd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 10 deletions.
diff --git a/src/Internal/Plutus/Types/CurrencySymbol.purs b/src/Internal/Plutus/Types/CurrencySymbol.purs
@@ -1,10 +1,9 @@
 module Ctl.Internal.Plutus.Types.CurrencySymbol
-  ( CurrencySymbol
+  ( CurrencySymbol(CurrencySymbol)
   , adaSymbol
   , currencyMPSHash
   , getCurrencySymbol
   , mkCurrencySymbol
-  , mkCurrencySymbolUnsafe
   , mpsSymbol
   , scriptHashAsCurrencySymbol
   ) where
@@ -99,10 +98,6 @@ mkCurrencySymbol byteArr
   | otherwise =
       scriptHashFromBytes byteArr $> CurrencySymbol byteArr
 
--- | Bypasses the usual checks of mkCurrencySymbol: use with extreme care!
-mkCurrencySymbolUnsafe :: ByteArray -> CurrencySymbol
-mkCurrencySymbolUnsafe = CurrencySymbol
-
 --------------------------------------------------------------------------------
 -- Internal
 --------------------------------------------------------------------------------

diff --git a/src/Internal/Scripts.purs b/src/Internal/Scripts.purs
@@ -14,8 +14,7 @@ import Prelude
 import Ctl.Internal.Hashing (plutusScriptHash)
 import Ctl.Internal.NativeScripts (NativeScriptHash, nativeScriptHash)
 import Ctl.Internal.Plutus.Types.CurrencySymbol
-  ( CurrencySymbol
-  , mkCurrencySymbolUnsafe
+  ( CurrencySymbol(CurrencySymbol)
   )
 import Ctl.Internal.Serialization.Address
   ( Address
@@ -36,7 +35,6 @@ import Ctl.Internal.Types.Scripts
   , Validator
   , ValidatorHash
   )
-import Data.Maybe (Maybe)
 import Data.Newtype (unwrap, wrap)
 
 -- | Helpers for `PlutusScript` and `ScriptHash` newtype wrappers, separate from
@@ -86,7 +84,7 @@ nativeScriptStakeValidatorHash = unwrap >>> nativeScriptHash >>> unwrap >>> wrap
 
 -- | Converts a `MintingPolicy` to a `CurrencySymbol`.
 scriptCurrencySymbol :: MintingPolicy -> CurrencySymbol
-scriptCurrencySymbol = mkCurrencySymbolUnsafe
+scriptCurrencySymbol = CurrencySymbol
   <<< unwrap
   <<< scriptHashToBytes
   <<< unwrap