From 75b06c3a9fb867467e97908d0f19903cd246ca6c Mon Sep 17 00:00:00 2001 From: Joscha Date: Thu, 7 Nov 2019 10:45:17 +0000 Subject: [PATCH] Rename opcode-related things --- src/Mima/Word.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Mima/Word.hs b/src/Mima/Word.hs index 7fa1165..ee082cf 100644 --- a/src/Mima/Word.hs +++ b/src/Mima/Word.hs @@ -197,13 +197,13 @@ instance Word32Based LargeValue_ where instance Show LargeValue_ where show lv = T.unpack $ "LargeValue_ 0x" <> toHex 5 (toWord32 lv) -largeValueToHex :: MimaWord -> T.Text +largeValueToHex :: LargeValue -> T.Text largeValueToHex = toHex 5 . toWord32 -largeValueToDec :: MimaWord -> T.Text +largeValueToDec :: LargeValue -> T.Text largeValueToDec = toDec 7 . toWord32 -largeValueToHexDec :: MimaWord -> T.Text +largeValueToHexDec :: LargeValue -> T.Text largeValueToHexDec mw = largeValueToHex mw <> " (" <> largeValueToDec mw <> ")" bytesToLargeValue :: Word8 -> Word8 -> Word8 -> LargeValue @@ -226,13 +226,13 @@ instance Word32Based SmallValue_ where instance Show SmallValue_ where show lv = T.unpack $ "SmallValue_ 0x" <> toHex 4 (toWord32 lv) -smallValueToHex :: MimaWord -> T.Text +smallValueToHex :: SmallValue -> T.Text smallValueToHex = toHex 4 . toWord32 -smallValueToDec :: MimaWord -> T.Text +smallValueToDec :: SmallValue -> T.Text smallValueToDec = toDec 5 . toWord32 -smallValueToHexDec :: MimaWord -> T.Text +smallValueToHexDec :: SmallValue -> T.Text smallValueToHexDec mw = smallValueToHex mw <> " (" <> smallValueToDec mw <> ")" signedSmallValueToWord :: SmallValue -> MimaWord