Skip to content

Commit

Permalink
fix(normalizer): make fourmolu happy
Browse files Browse the repository at this point in the history
  • Loading branch information
deemp committed Jul 11, 2024
1 parent a592d2e commit eb93f5b
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 4 deletions.
6 changes: 3 additions & 3 deletions eo-phi-normalizer/src/Language/EO/Phi/Rules/RunYegor.hs
Original file line number Diff line number Diff line change
@@ -1,11 +1,11 @@
module Language.EO.Phi.Rules.RunYegor where

import Language.EO.Phi.Dataize
import Language.EO.Phi.Rules.Common
import Language.EO.Phi.Syntax.Abs
import Language.EO.Phi.Rules.Yaml qualified as Yaml
import System.IO.Unsafe (unsafePerformIO)
import Language.EO.Phi.Syntax (printTree)
import Language.EO.Phi.Dataize
import Language.EO.Phi.Syntax.Abs
import System.IO.Unsafe (unsafePerformIO)

runWithYegorRules :: (Context -> Object -> Object) -> Object -> IO ()
runWithYegorRules f obj = putStrLn (printTree (f (defaultContext yegorRules obj) obj))
Expand Down
2 changes: 1 addition & 1 deletion eo-phi-normalizer/test/Language/EO/Rules/PhiPaperSpec.hs
Original file line number Diff line number Diff line change
Expand Up @@ -22,8 +22,8 @@ import Data.List (intercalate)
import Data.List qualified as List
import Data.Yaml qualified as Yaml
import GHC.Generics (Generic)
import Language.EO.Phi.Rules.Common (ApplicationLimits (..), NamedRule, applyOneRule, defaultApplicationLimits, equalObject, intToBytes, objectSize)
import Language.EO.Phi.Dataize (defaultContext)
import Language.EO.Phi.Rules.Common (ApplicationLimits (..), NamedRule, applyOneRule, defaultApplicationLimits, equalObject, intToBytes, objectSize)
import Language.EO.Phi.Rules.Yaml (convertRuleNamed, parseRuleSetFromFile, rules)
import Language.EO.Phi.Syntax (printTree)
import Language.EO.Phi.Syntax.Abs as Phi
Expand Down

0 comments on commit eb93f5b

Please sign in to comment.