diff options
Diffstat (limited to 'src/Language/Fiddle/Parser.hs')
| -rw-r--r-- | src/Language/Fiddle/Parser.hs | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/src/Language/Fiddle/Parser.hs b/src/Language/Fiddle/Parser.hs index c3056bd..e91fa41 100644 --- a/src/Language/Fiddle/Parser.hs +++ b/src/Language/Fiddle/Parser.hs @@ -276,11 +276,16 @@ registerBitsDeclP = ( do tok KWReserved >> ReservedBits <$> exprInParenP ) - <|> (BitsSubStructure <$> registerBodyP <*> optionMaybe ident) - <|> ( DefinedBits Vacant . Perhaps - <$> optionMaybe modifierP - <*> ident - <*> (tok TokColon >> registerBitsTypeRefP) + <|> ( do + mod <- optionMaybe modifierP + ( BitsSubStructure Vacant (Perhaps mod) + <$> registerBodyP + <*> optionMaybe ident + ) + <|> ( DefinedBits Vacant (Perhaps mod) + <$> ident + <*> (tok TokColon >> registerBitsTypeRefP) + ) ) registerBitsTypeRefP :: Pa RegisterBitsTypeRef |