From f7522c99a70a17c9543cc7d2793ab13ce3645b8f Mon Sep 17 00:00:00 2001 From: Danila Danko Date: Wed, 4 Dec 2024 21:30:26 +0300 Subject: [PATCH] fix(eo-phi-normalizer): apply hlint suggestions --- eo-phi-normalizer/Setup.hs | 3 ++- eo-phi-normalizer/src/Language/EO/Phi/ToLaTeX.hs | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/eo-phi-normalizer/Setup.hs b/eo-phi-normalizer/Setup.hs index 69c89b45f..127cffe93 100644 --- a/eo-phi-normalizer/Setup.hs +++ b/eo-phi-normalizer/Setup.hs @@ -82,7 +82,8 @@ main = -- See the details on the command form in https://github.com/objectionary/eo-phi-normalizer/issues/347#issuecomment-2117097070 command = - intercalate "; " $ + intercalate + "; " [ "set -ex" , "bnfc --haskell -d -p Language.EO.Phi --generic -o src/ grammar/EO/Phi/Syntax.cf" , "cd src/Language/EO/Phi/Syntax" diff --git a/eo-phi-normalizer/src/Language/EO/Phi/ToLaTeX.hs b/eo-phi-normalizer/src/Language/EO/Phi/ToLaTeX.hs index c6f45d557..254304eb5 100644 --- a/eo-phi-normalizer/src/Language/EO/Phi/ToLaTeX.hs +++ b/eo-phi-normalizer/src/Language/EO/Phi/ToLaTeX.hs @@ -108,7 +108,7 @@ inMathMode = (" $ " <>) . (<> " $ ") instance ToLatex RuleContext where toLatex RuleContext{..} = maybe mempty (\x -> inMathMode $ toLatex GlobalObject <> " -> " <> toLatex x) global_object - <> maybe mempty (\x -> (inMathMode $ toLatex x) <> " is the scope of the redex") current_object + <> maybe mempty (\x -> inMathMode (toLatex x) <> " is the scope of the redex") current_object <> maybe mempty (\x -> toLatex x <> " is the current attribute") current_attribute instance ToLatex RuleAttribute where