deleteFiles :: IO (FilePath,FilePath)
deleteFiles = do
    tmp <- getTemporaryDirectory  
    let (basename1,basename2) = ("haskell_tailfile_test_1_387493423492347.txt"
                                ,"haskell_tailfile_test_2_387493423492347.txt")
        (filename1,filename2) = (tmp </> basename1,tmp </> basename2)
    for_ [filename1,filename2]
         (\filepath -> do _ <- tryJust (guard . isDoesNotExistError) 
                                       (removeFile filepath)
                          pure ())
    return (filename1,filename2)
deleteFiles :: IO (FilePath,FilePath)
deleteFiles = do
    tmp <- getTemporaryDirectory  
    let (basename1,basename2) = ("haskell_tailfile_test_1_387493423492347.txt"
                                ,"haskell_tailfile_test_2_387493423492347.txt")
        (filename1,filename2) = (tmp </> basename1,tmp </> basename2)
    for_ [filename1,filename2]
         (\filepath -> do _ <- tryJust (guard . isDoesNotExistError) 
                                       (removeFile filepath)
                          pure ())
    return (filename1,filename2)
deleteFiles = do
    tmp <- getTemporaryDirectory  
    let (basename1,basename2) = ("haskell_tailfile_test_1_387493423492347.txt"
                                ,"haskell_tailfile_test_2_387493423492347.txt")
        (filename1,filename2) = (tmp </> basename1,tmp </> basename2)
    for_ [filename1,filename2]
         (\filepath -> do _ <- tryJust (guard . isDoesNotExistError) 
                                       (removeFile filepath)
                          pure ())
    return (filename1,filename2)