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

Switch to Mima.Format formatting

Browse source
This commit is contained in:
Joscha 2019-11-19 08:02:58 +00:00
parent 81fee29490
commit 4707e929ef
3 changed files with 8 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

5
app/MimaRun/PrintState.hs
View file

@ -10,6 +10,7 @@ import qualified Data.Text as T
import qualified Data.Text.IO as T
import System.Console.ANSI
import Mima.Format.Common
import Mima.Instruction
import Mima.State
import Mima.Util
@ -17,14 +18,14 @@ import Mima.Word
printAddress :: Int -> MimaAddress -> IO ()
printAddress n addr = do
T.putStr $ toHexBytes addr
T.putStr $ toHex addr
putStr " ("
T.putStr $ T.justifyRight n ' ' $ toDec addr
putStr ")"
printWord :: Int -> MimaWord -> IO ()
printWord n word = do
T.putStr $ toHexBytes word
T.putStr $ toHex word
putStr " ("
T.putStr $ T.justifyRight n ' ' $ toDec word
putStr ")"