Thanks @TotallyNotChase

Plutonomicon · Jan 17, 2022 · 60ffac6 · 60ffac6
1 parent 0948627
commit 60ffac6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Plutarch/Monadic.hs b/Plutarch/Monadic.hs
@@ -4,7 +4,7 @@ import Prelude hiding (fail, (>>), (>>=))
 
 import Data.String (fromString)
 import Plutarch.Prelude
-import Plutarch.Trace (ptrace)
+import Plutarch.Trace (ptraceError)
 
 (>>=) :: a -> a
 (>>=) = id
@@ -13,4 +13,4 @@ import Plutarch.Trace (ptrace)
 (>>) = id
 
 fail :: String -> Term s a
-fail msg = ptrace (fromString msg) perror
+fail msg = ptraceError (fromString msg)