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

Rename AllFlags to RawFlags

Browse source 
I just like this new name better
This commit is contained in:
Joscha 2019-11-19 10:23:29 +00:00
parent 4707e929ef
commit 45ec7d1708
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Mima/Flag.hs
View file

@ -18,7 +18,7 @@ module Mima.Flag
, flagChar
, Flags(..)
, rawFlags
, AllFlags
, RawFlags
, FlagSpec
, getFlagSpec
, interpretFlagSpec
@ -113,10 +113,10 @@ rawFlags = Flags
, flagReadOnly = ReadOnly
}
type AllFlags = Map.Map AddressRange (Set.Set Char)
type RawFlags = Map.Map AddressRange (Set.Set Char)
type FlagSpec = Flags AddressSpec
getFlagSpec :: AllFlags -> FlagSpec
getFlagSpec :: RawFlags -> FlagSpec
getFlagSpec af =
let isInSet :: Flag -> Set.Set Char -> Bool
isInSet f s = flagChar f `Set.member` s