Implement most of mima-run CLI
This commit is contained in:
parent
a1f532172a
commit
082a205a7e
3 changed files with 57 additions and 12 deletions
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue