From 673c99472da3de2d52bd29fec91978166f008766 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Wed, 27 Nov 2024 13:16:06 -0700 Subject: Add metadata information to the BitsSubStructure and compile it correctly. --- src/Language/Fiddle/Parser.hs | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'src/Language/Fiddle/Parser.hs') 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 -- cgit