getMetaDir :: IO FilePath
getMetaDir = do
    syncDir <- getOrCreateSyncDir
    let metaDir = syncDir </> ".sync"
    metaIsFile <- doesFileExist metaDir
    when metaIsFile $ removeFile metaDir --to upgrade from older versions
    createDirectoryIfMissing True metaDir
    return metaDir
getMetaDir :: IO FilePath
getMetaDir = do
    syncDir <- getOrCreateSyncDir
    let metaDir = syncDir </> ".sync"
    metaIsFile <- doesFileExist metaDir
    when metaIsFile $ removeFile metaDir --to upgrade from older versions
    createDirectoryIfMissing True metaDir
    return metaDir
getMetaDir = do
    syncDir <- getOrCreateSyncDir
    let metaDir = syncDir </> ".sync"
    metaIsFile <- doesFileExist metaDir
    when metaIsFile $ removeFile metaDir --to upgrade from older versions
    createDirectoryIfMissing True metaDir
    return metaDir