Fix build with older GHCs
This commit is contained in:
parent
c3d2c0433e
commit
d0c3a2c9a7
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user