From 8082f91fd9fd1bdcbde5ebf74ed4710cdbb0c6c5 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Fri, 11 Oct 2024 14:51:37 -0600
Subject: Change register identifiers to Guarantee a value in qualification.

This remove the burden of generating names from the backend.
---
 src/Language/Fiddle/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Language/Fiddle/Parser.hs')

diff --git a/src/Language/Fiddle/Parser.hs b/src/Language/Fiddle/Parser.hs
index ebc3d8d..e8f1b62 100644
--- a/src/Language/Fiddle/Parser.hs
+++ b/src/Language/Fiddle/Parser.hs
@@ -216,7 +216,7 @@ objTypeDeclP =
       <|> ( do
               modifier <- optionMaybe modifierP
               tok_ KWReg
-              RegisterDecl () modifier
+              RegisterDecl () modifier . Perhaps
                 <$> optionMaybe ident
                 <*> exprInParenP
                 <*> optionMaybe (tok TokColon *> registerBodyP)
-- 
cgit