Implementation of Exact rdrName allows for use of infix operators in …

…HSX!
digitallyinduced · Sep 26, 2022 · 79ec309 · 79ec309
1 parent e318951
commit 79ec309
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ihp-hsx/IHP/HSX/HsExpToTH.hs b/ihp-hsx/IHP/HSX/HsExpToTH.hs
@@ -65,8 +65,8 @@ toName :: RdrName -> TH.Name
 toName n = case n of
   (Unqual o) -> TH.mkName (occNameString o)
   (Qual m o) -> TH.mkName (Module.moduleNameString m <> "." <> occNameString o)
+  (Exact name) -> TH.mkName ((occNameString . rdrNameOcc . getRdrName) name) --error "exact"
   (Orig _ _) -> error "orig"
-  (Exact _) -> error "exact"
 
 toFieldExp :: a
 toFieldExp = undefined