Fix

mihaimaruseac · Jun 8, 2024 · b6f6a5c · b6f6a5c
1 parent 7689d8d
commit b6f6a5c
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/HIndent/Ast/Operator/Prefix.hs b/src/HIndent/Ast/Operator/Prefix.hs
@@ -15,7 +15,7 @@ import HIndent.Pretty.Combinators
 import HIndent.Pretty.NodeComments
 
 data PrefixOperator = PrefixOperator
-  { name :: GHC.OccName
+  { name :: String
   , moduleName :: Maybe GHC.ModuleName
   , parentheses :: Bool
   }
@@ -25,7 +25,7 @@ instance CommentExtraction PrefixOperator where
 
 instance Pretty PrefixOperator where
   pretty' PrefixOperator {..} =
-    wrap $ hDotSep $ catMaybes [pretty <$> moduleName, Just $ pretty name]
+    wrap $ hDotSep $ catMaybes [pretty <$> moduleName, Just $ string name]
     where
       wrap =
         if parentheses
@@ -34,13 +34,13 @@ instance Pretty PrefixOperator where
 
 mkPrefixOperator :: GHC.RdrName -> PrefixOperator
 mkPrefixOperator (GHC.Unqual name) =
-  PrefixOperator name Nothing (parensNeeded name)
+  PrefixOperator (showOutputable name) Nothing (parensNeeded name)
 mkPrefixOperator (GHC.Qual modName name) =
-  PrefixOperator name (Just modName) (parensNeeded name)
+  PrefixOperator (showOutputable name) (Just modName) (parensNeeded name)
 mkPrefixOperator (GHC.Orig {}) =
   error "This AST node should not appear in the parser output."
 mkPrefixOperator (GHC.Exact name) =
-  PrefixOperator (GHC.occName name) Nothing (parensNeeded $ GHC.occName name)
+  PrefixOperator (showOutputable name) Nothing (parensNeeded $ GHC.occName name)
 
 parensNeeded :: GHC.OccName -> Bool
 parensNeeded = GHC.isSymOcc