egison / egison-pattern-src

egison-pattern-src/egison-pattern-src-haskell-mode/src/Language/Egison/Pretty/Pattern/Mode/Haskell.hs

Lines 86 to 87 in da079e7

    
           printIdentOp mModName n = '`' : maybe n (++ '.' : n) mModName ++ "`" 
        
           printSymbolOp mModName n = maybe n (++ '.' : n) mModName

perhaps this instance would be useful: https://hackage.haskell.org/package/haskell-src-exts-1.23.0/docs/Language-Haskell-Exts-Pretty.html#t:Pretty

	printIdentOp mModName n = '`' : maybe n (++ '.' : n) mModName ++ "`"
	printSymbolOp mModName n = maybe n (++ '.' : n) mModName

Use proper operator printers from haskell-src-exts