Extract flag parser

src/Mima/Parse/Common.hs

@@ -6,6 +6,7 @@ module Mima.Parse.Common
   -- * Basic parsers
   , whitespace
   , labelName
+  , flag
   -- ** Number literals
   , binDigit
   , decDigit
@@ -58,6 +59,9 @@ labelName = label "label" $ do
   ts <- takeWhileP Nothing (\c -> isAlphaNum c || isConnecting c)
   pure $ T.singleton t <> ts
 
+flag :: Parser (Set.Set Char)
+flag = label "alphanumeric character" $ Set.singleton <$> satisfy isAlphaNum
+
 binDigit :: (Num a) => Parser a
 binDigit = label "binary digit" $ token helper Set.empty
   where

src/Mima/Parse/FlagFile.hs

@@ -21,11 +21,8 @@ import           Mima.Word
 lAddress :: Parser MimaAddress
 lAddress = lexeme fixedWidthHexAddress
 
-lFlag :: Parser (Set.Set Char)
-lFlag = lexeme $ label "alphanumeric character" $ Set.singleton <$> satisfy isAlphaNum
-
 lFlags :: Parser (Set.Set Char)
-lFlags = Set.unions <$> some lFlag
+lFlags = Set.unions <$> some (lexeme flag)
 
 lAddressRange :: Parser AddressRange
 lAddressRange = do