From 890b35eaddd8fb6cae4c2373e2ed91ad57d7cb4e Mon Sep 17 00:00:00 2001 From: Joscha Date: Thu, 7 Nov 2019 20:55:53 +0000 Subject: [PATCH] Modify color scheme --- app/MimaRun.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/app/MimaRun.hs b/app/MimaRun.hs index 3cb7824..a071d41 100644 --- a/app/MimaRun.hs +++ b/app/MimaRun.hs @@ -78,7 +78,7 @@ printWord n word = do printInstruction :: Instruction -> IO () printInstruction (SmallInstruction so lv) = do setSGR [SetConsoleIntensity BoldIntensity] - if | so `elem` [JMP, JMN, CALL] -> setSGR [SetColor Foreground Vivid Yellow] + if | so `elem` [JMP, JMN, CALL] -> setSGR [SetColor Foreground Dull Green] | so `elem` [LDC, LDV, STV, LDIV, STIV, LDVR, STVR] -> setSGR [SetColor Foreground Vivid Blue] | so `elem` [ADD, AND, OR, XOR, EQL] -> setSGR [SetColor Foreground Vivid Cyan] | otherwise -> pure () @@ -90,9 +90,9 @@ printInstruction (SmallInstruction so lv) = do printInstruction (LargeInstruction lo sv) = do setSGR [SetConsoleIntensity BoldIntensity] if | lo == HALT -> setSGR [SetColor Foreground Vivid Red] - | lo == RET -> setSGR [SetColor Foreground Vivid Yellow] + | lo == RET -> setSGR [SetColor Foreground Dull Green] | lo `elem` [NOT, RAR, ADC] -> setSGR [SetColor Foreground Vivid Cyan] - | lo `elem` [LDRA, STRA, LDSP, STSP, LDFP, STFP] -> setSGR [SetColor Foreground Vivid Magenta] + | lo `elem` [LDRA, STRA, LDSP, STSP, LDFP, STFP] -> setSGR [SetColor Foreground Dull Yellow] | otherwise -> pure () T.putStr $ toText lo when (lo == ADC || sv /= zeroBits) $ do