refactor: rename StackTest.Repl.{repl → stackRepl}

Author: ulidtko

tests/integration/lib/StackTest/Repl.hs

@@ -5,9 +5,9 @@ module StackTest.Repl
     ( Repl
     , ReplConnection (..)
     , nextPrompt
-    , repl
     , replCommand
     , replGetLine
+    , stackRepl
     ) where
 
 import Control.Exception (SomeException, catch, displayException, finally)
@@ -115,8 +115,9 @@ openTempStderrBufferFile = getTempDir >>= (`openTempFile` "err.log") where
   getTempDir | isWindows = fromMaybe "" <$> lookupEnv "TEMP"
              | otherwise = pure "/tmp"
 
-repl :: HasCallStack => [String] -> Repl () -> IO ()
-repl args action = do
+-- | Testing helper to exercise `stack repl`.
+stackRepl :: HasCallStack => [String] -> Repl () -> IO ()
+stackRepl args action = do
   stackExe' <- stackExe
   ec <- runRepl stackExe' ("repl" : "--ghci-options=-ignore-dot-ghci" : args) action
   unless (ec == ExitSuccess) $ do

tests/integration/tests/3315-multi-ghc-options/Main.hs

@@ -1,6 +1,6 @@
-import StackTest
+import StackTest.Repl
 
 main :: IO ()
 main = do
   stack ["build", "--ghc-options=-ddump-simpl -ddump-asm -DBAR -DBAZ"]
-  repl ["--ghc-options=-ddump-simpl -ddump-asm"] (pure ())
+  stackRepl ["--ghc-options=-ddump-simpl -ddump-asm"] (pure ())

tests/integration/tests/3926-ghci-with-sublibraries/Main.hs

@@ -10,7 +10,7 @@ main = do
   copy "src/Lib.v1" "src/Lib.hs"
   copy "src-internal/Internal.v1" "src-internal/Internal.hs"
   stack ["build"] -- need a build before ghci at the moment, see #4148
-  repl [] $ do
+  stackRepl [] $ do
     -- The command must be issued before searching the output for the next prompt,
     -- otherwise, on Windows from msys2-20230526, `stack repl` encounters a EOF
     -- and terminates gracefully.

tests/integration/tests/4270-files-order/Main.hs

@@ -5,7 +5,7 @@ import StackTest.Repl
 main :: IO ()
 main = do
   stack ["build"]
-  repl [] $ do
+  stackRepl [] $ do
     -- The command must be issued before searching the output for the next
     -- prompt, otherwise, on Windows from msys2-20230526, `stack repl`
     -- encounters a EOF and terminates gracefully.

tests/integration/tests/module-added-multiple-times/Main.hs

@@ -2,7 +2,7 @@ import Control.Monad
 import StackTest.Repl
 
 main :: IO ()
-main = repl [] $ do
+main = stackRepl [] $ do
   -- The command must be issued before searching the output for the next prompt,
   -- otherwise, on Windows from msys2-20230526, `stack repl` encounters a EOF
   -- and terminates gracefully.