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/Compiler/Expansion.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Language/Fiddle/Compiler/Expansion.hs')

diff --git a/src/Language/Fiddle/Compiler/Expansion.hs b/src/Language/Fiddle/Compiler/Expansion.hs
index ca97fc4..11a68be 100644
--- a/src/Language/Fiddle/Compiler/Expansion.hs
+++ b/src/Language/Fiddle/Compiler/Expansion.hs
@@ -91,7 +91,7 @@ instance AdvanceStage CurrentStage ObjTypeDecl where
     return
       . case t of
         TypeSubStructure {subStructureName = (Just n)} -> pushId n
-        RegisterDecl {regIdent = (Just n)} -> pushId n
+        RegisterDecl {regIdent = (Perhaps (Just n))} -> pushId n
         _ -> id
 
 instance AdvanceStage CurrentStage FiddleDecl where
-- 
cgit