Fix build with older GHCs

This commit is contained in:
Julian Ospald 2020-01-04 18:14:52 +01:00
parent c3d2c0433e
commit d0c3a2c9a7
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28

View File

@ -17,7 +17,7 @@ main :: IO ()
main = do main = do
tmpBase <- mkdtemp "/tmp/" tmpBase <- mkdtemp "/tmp/"
writeIORef baseTmpDir (Just (tmpBase `BS.append` "/")) writeIORef baseTmpDir (Just (tmpBase `BS.append` "/"))
putStrLn $ ("Temporary test directory at: " <> show tmpBase) putStrLn $ ("Temporary test directory at: " ++ show tmpBase)
hspecWith hspecWith
defaultConfig { configFormatter = Just progress } defaultConfig { configFormatter = Just progress }
$ afterAll_ deleteBaseTmpDir $ afterAll_ deleteBaseTmpDir