tweag/ormolu
1
1
Fork 0
mirror of https://github.com/tweag/ormolu.git synced 2024-10-05 17:37:11 +03:00
Code Issues Projects Releases Wiki Activity

Don't use unsafePerformIO without need

Browse Source
This commit is contained in:
Simon Hengel 2022-12-26 18:16:00 +07:00 committed by Mark Karpov
parent 9cdb3e93b0
commit e7da6bc4c2
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/Ormolu/PrinterSpec.hs
View File

@ -17,7 +17,6 @@ import Path
import Path.IO
import System.Environment (lookupEnv)
import qualified System.FilePath as F
import System.IO.Unsafe (unsafePerformIO)
import Test.Hspec
spec :: Spec
@ -51,7 +50,7 @@ checkExample srcPath' = it (fromRelFile srcPath' ++ " works") . withNiceExceptio
formatted0 <- ormoluFile config inputPath
-- 3. Check the output against expected output. Thus all tests should
-- include two files: input and expected output.
when shouldRegenerateOutput $
whenShouldRegenerateOutput $
T.writeFile (fromRelFile expectedOutputPath) formatted0
expected <- readFileUtf8 $ fromRelFile expectedOutputPath
shouldMatch False formatted0 expected
@ -112,7 +111,7 @@ withNiceExceptions m = m `catch` h
h :: OrmoluException -> IO ()
h = expectationFailure . displayException
shouldRegenerateOutput :: Bool
shouldRegenerateOutput =
unsafePerformIO $ isJust <$> lookupEnv "ORMOLU_REGENERATE_EXAMPLES"
{-# NOINLINE shouldRegenerateOutput #-}
whenShouldRegenerateOutput :: IO () -> IO ()
whenShouldRegenerateOutput action = do
shouldRegenerateOutput <- isJust <$> lookupEnv "ORMOLU_REGENERATE_EXAMPLES"
when shouldRegenerateOutput action