diff options
Diffstat (limited to 'src/Language/Fiddle/Parser.hs')
| -rw-r--r-- | src/Language/Fiddle/Parser.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Language/Fiddle/Parser.hs b/src/Language/Fiddle/Parser.hs index e8f1b62..8d2eab2 100644 --- a/src/Language/Fiddle/Parser.hs +++ b/src/Language/Fiddle/Parser.hs @@ -207,7 +207,7 @@ objTypeDeclP = ) <|> ( do tok_ KWReserved - ReservedDecl <$> exprInParenP + ReservedDecl Vacant Vacant <$> exprInParenP ) <|> ( do bt <- bodyTypeP @@ -216,7 +216,7 @@ objTypeDeclP = <|> ( do modifier <- optionMaybe modifierP tok_ KWReg - RegisterDecl () modifier . Perhaps + RegisterDecl Vacant modifier . Perhaps <$> optionMaybe ident <*> exprInParenP <*> optionMaybe (tok TokColon *> registerBodyP) @@ -258,7 +258,7 @@ registerBitsDeclP = tok KWReserved >> ReservedBits <$> exprInParenP ) <|> (BitsSubStructure <$> registerBodyP <*> optionMaybe ident) - <|> ( DefinedBits () + <|> ( DefinedBits Vacant <$> optionMaybe modifierP <*> ident <*> (tok TokColon >> registerBitsTypeRefP) |