fix(eo-phi-normalizer): apply hlint suggestions

objectionary · Dec 4, 2024 · f7522c9 · f7522c9
1 parent 6fffd52
commit f7522c9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git 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
@@ -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