shake-0.19.9: src/Test/Existence.hs

module Test.Existence(main) where

import Development.Shake
import Development.Shake.Internal.FileInfo
import Development.Shake.Internal.FileName
import System.Directory
import System.FilePath
import General.Extra

main :: IO () -> IO ()
main _ = do
    cwd <- getCurrentDirectory
    someFiles <- getDirectoryFilesIO cwd ["*"]
    let someFile = headErr someFiles
    assertIsJust $ getFileInfo False $ fileNameFromString someFile

    let fileThatCantExist = someFile </> "fileThatCantExist"
    assertIsNothing $ getFileInfo False $ fileNameFromString fileThatCantExist

assertIsJust :: IO (Maybe a) -> IO ()
assertIsJust action = do
    Just _ <- action
    pure ()

assertIsNothing :: IO (Maybe a) -> IO ()
assertIsNothing action = do
    Nothing <- action
    pure ()