From e9425440447b93808dc5a08d09f4a4c2bf05d1a0 Mon Sep 17 00:00:00 2001 From: Joscha Date: Sat, 4 Apr 2020 13:41:02 +0000 Subject: [PATCH] Add Show instance for WeedError --- src/Mima/Asm/Weed.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Mima/Asm/Weed.hs b/src/Mima/Asm/Weed.hs index dcca1c3..d193716 100644 --- a/src/Mima/Asm/Weed.hs +++ b/src/Mima/Asm/Weed.hs @@ -63,6 +63,7 @@ harmless :: e -> Weed e () harmless e = Weed (Endo (e:)) (Right ()) data WeedError a = WeedError a String + deriving (Show) instance Functor WeedError where fmap f (WeedError a s) = WeedError (f a) s