Implement most of mima-run CLI

This commit is contained in:
Joscha 2019-11-06 17:20:08 +00:00
parent a1f532172a
commit 082a205a7e
3 changed files with 57 additions and 12 deletions

View file

@ -63,7 +63,7 @@ data Instruction
deriving (Show, Eq)
instance ToText Instruction where
toText (SmallInstruction oc addr) = toText oc <> " 0x" <> addrToHex addr
toText (SmallInstruction oc addr) = T.justifyLeft 4 ' ' (toText oc) <> " " <> addrToDec addr
toText (LargeInstruction oc) = toText oc