Stop exporting runRestyler_

restyled-io · Jul 26, 2024 · 25562a3 · 25562a3
1 parent 5f87509
commit 25562a3
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/src/Restyler/Restyler/Run.hs b/src/Restyler/Restyler/Run.hs
@@ -12,7 +12,6 @@ module Restyler.Restyler.Run
 
     -- * Exported for testing only
   , runRestyler
-  , runRestyler_
   , withFilteredPaths
   , findFiles
   ) where

diff --git a/test/Restyler/Restyler/RunSpec.hs b/test/Restyler/Restyler/RunSpec.hs
@@ -29,13 +29,14 @@ spec = withTestApp $ do
 
       filtered `shouldBe` Just (["a", "b"] :| [["a"]])
 
-  describe "runRestyler_" $ do
+  describe "runRestyler" $ do
     it "treats non-zero exit codes as RestylerExitFailure"
       $ testAppExample
       $ do
         pendingWith "The separate docker-pull process fails first now"
+        config <- loadDefaultConfig
         local (\x -> x {taProcessExitCodes = ExitFailure 99}) $ do
-          runRestyler_ (someRestyler "foo") ["bar"]
+          runRestyler config (someRestyler "foo") ["bar"]
             `shouldThrow` ( ==
                               RestylerExitFailure
                                 (someRestyler "foo")

diff --git a/test/SpecHelper.hs b/test/SpecHelper.hs
@@ -47,6 +47,7 @@ import LoadEnv (loadEnvFrom)
 import Restyler.AnnotatedException
 import Restyler.Config
 import Restyler.Docker
+import Restyler.Git
 import Restyler.Local.Options
 import Restyler.Options.FailOnDifferences
 import Restyler.Options.HostDirectory
@@ -99,6 +100,7 @@ newtype TestAppT a = TestAppT
     , MonadLogger
     , MonadReader TestApp
     )
+  deriving (MonadGit) via (NullGit TestAppT)
   deriving (MonadDocker) via (NullDocker TestAppT)
 
 instance MonadSystem TestAppT where