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

Format more numbers

Browse source
This commit is contained in:
Joscha 2019-11-18 14:08:46 +00:00
parent 75304e8027
commit 23bd495521
3 changed files with 53 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Mima/Format/SymbolFile.hs
View file

@ -11,6 +11,9 @@ import qualified Data.Text as T
import Mima.Format.Common
import Mima.Word
fAddress :: MimaAddress -> T.Text
fAddress = fixWidthHex 5 . toHex
type LabelName = T.Text
combineByAddress :: Map.Map LabelName MimaAddress -> Map.Map MimaAddress (Set.Set LabelName)
@ -24,7 +27,7 @@ fLabels :: Set.Set LabelName -> T.Text
fLabels = T.intercalate " " . Set.toAscList
fLine :: (MimaAddress, Set.Set LabelName) -> T.Text
fLine (a, s) = fixedWidthHexAddress a <> ": " <> fLabels s <> "\n"
fLine (a, s) = fAddress a <> ": " <> fLabels s <> "\n"
formatSymbolFile :: Map.Map LabelName MimaAddress -> T.Text
formatSymbolFile = mconcat . map fLine . Map.assocs . combineByAddress