google/ormolu
1
1
Fork 0
mirror of https://github.com/google/ormolu.git synced 2024-11-27 13:13:23 +03:00
Code Issues Projects Releases Wiki Activity

Fix printing of the rewrite rule names

Browse Source
This commit is contained in:
Utku Demir 2019-08-14 18:09:51 +12:00 committed by Mark Karpov
parent a392aef71e
commit f55021d89b
3 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
data/examples/declaration/rewrite-rule/basic-out.hs
View File

@ -27,3 +27,9 @@
"concat" xs `concat` ys = augment (\c n -> foldr c n xs) ys
"map/Double" fmap f xs = foldr (++) f xs
#-}
{-# RULES
"fb' >\\ (Request b' fb )" forall fb' b' fb.
fb' >\\ (Request b' fb) =
fb' b' >>= \b -> fb' >\\ fb b
#-}

6
data/examples/declaration/rewrite-rule/basic.hs
View File

@ -25,3 +25,9 @@
"concat" xs `concat` ys = augment (\c n -> foldr c n xs) ys;
"map/Double" fmap f xs = foldr (++) f xs
#-}
{-# RULES
"fb' >\\ (Request b' fb )" forall fb' b' fb .
fb' >\\ (Request b' fb ) = fb' b' >>= \b -> fb' >\\ fb b;
#-}

7
src/Ormolu/Printer/Meat/Declaration/Rule.hs
View File

@ -9,14 +9,12 @@ where
import BasicTypes
import Control.Monad
import FastString (unpackFS)
import GHC
import Ormolu.Printer.Combinators
import Ormolu.Printer.Meat.Common
import Ormolu.Printer.Meat.Declaration.Signature
import Ormolu.Printer.Meat.Declaration.Value
import Ormolu.Utils
import qualified Data.Text as T
p_ruleDecls :: RuleDecls GhcPs -> R ()
p_ruleDecls = \case
@ -43,10 +41,7 @@ p_ruleDecl = \case
XRuleDecl NoExt -> notImplemented "XRuleDecl"
p_ruleName :: (SourceText, RuleName) -> R ()
p_ruleName (_, name) = do
txt "\""
txt $ T.pack $ unpackFS $ name
txt "\""
p_ruleName (_, name) = atom $ HsString NoSourceText name
p_ruleBndrs :: [LRuleBndr GhcPs] -> R ()
p_ruleBndrs [] = return ()