checkLocalChange :: IO Bool
checkLocalChange = do
    (_, _, previousState, localFiles) <- initLocalState
    let previousLocalFiles = localSyncState previousState
    let localChanges = computeChanges localFiles previousLocalFiles
    unless (null localChanges) (liftIO $ infoM "Sync.checkLocalChange" ("localChanges:\n" ++ formatList localChanges))
    return $ not (null localChanges)
checkLocalChange :: IO Bool
checkLocalChange = do
    (_, _, previousState, localFiles) <- initLocalState
    let previousLocalFiles = localSyncState previousState
    let localChanges = computeChanges localFiles previousLocalFiles
    unless (null localChanges) (liftIO $ infoM "Sync.checkLocalChange" ("localChanges:\n" ++ formatList localChanges))
    return $ not (null localChanges)
checkLocalChange = do
    (_, _, previousState, localFiles) <- initLocalState
    let previousLocalFiles = localSyncState previousState
    let localChanges = computeChanges localFiles previousLocalFiles
    unless (null localChanges) (liftIO $ infoM "Sync.checkLocalChange" ("localChanges:\n" ++ formatList localChanges))
    return $ not (null localChanges)