From f75c3368bb8e0d6ed05adbec70f2afcfa863412d Mon Sep 17 00:00:00 2001 From: Joscha Date: Wed, 13 Nov 2019 15:22:49 +0000 Subject: [PATCH] Improve error message on MiMa abort --- src/Mima/State.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Mima/State.hs b/src/Mima/State.hs index 974920c..b94cd98 100644 --- a/src/Mima/State.hs +++ b/src/Mima/State.hs @@ -84,10 +84,10 @@ data AbortReason instance ToText AbortReason where toText Halted = "Halted" - toText (InvalidInstruction t) = "Invalid instruction: " <> t - toText InvalidNextIarAddress = "Can't increment IAR: Invalid next address" - toText AddressNotExecutable = "Address is not flagged as excutable" - toText AddressReadOnly = "Address is flagged as read-only" + toText (InvalidInstruction t) = "Exception: Invalid instruction: " <> t + toText InvalidNextIarAddress = "Exception: Can't increment IAR: Invalid next address" + toText AddressNotExecutable = "Exception: Address is not flagged as excutable" + toText AddressReadOnly = "Exception: Address is flagged as read-only" {- A fancy monad that helps with stepping the MimaState -}