Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add Show instance for WeedError

Browse source
This commit is contained in:
Joscha 2020-04-04 13:41:02 +00:00
parent 86dd243c11
commit e942544044
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/Mima/Asm/Weed.hs
View file

@ -63,6 +63,7 @@ harmless :: e -> Weed e ()
harmless e = Weed (Endo (e:)) (Right ()) harmless e = Weed (Endo (e:)) (Right ())
data WeedError a = WeedError a String data WeedError a = WeedError a String
deriving (Show)
instance Functor WeedError where instance Functor WeedError where
fmap f (WeedError a s) = WeedError (f a) s fmap f (WeedError a s) = WeedError (f a) s