diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-10-24 12:39:35 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-10-24 12:39:35 -0400 |
commit | d4d8dd66c305951d59069fa31c26855ea61b9322 (patch) | |
tree | 8d3b3457cb4c5b1c72883b8d18fa674803c747b8 /Storage | |
parent | 758d6bbc4f98853d517eb092f507f62fa9f2d223 (diff) | |
download | keysafe-d4d8dd66c305951d59069fa31c26855ea61b9322.tar.gz |
Fix --check-server to not fail when the server has not had anything stored on it yet.
Threw an exception because the share directory was not created yet.
This commit was sponsored by Anthony DeRobertis on Patreon.
Diffstat (limited to 'Storage')
-rw-r--r-- | Storage/Local.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Storage/Local.hs b/Storage/Local.hs index 637a31b..c1dcea4 100644 --- a/Storage/Local.hs +++ b/Storage/Local.hs @@ -112,8 +112,11 @@ obscure section getsharedir = onError (ObscureFailure . show) $ do count :: Section -> GetShareDir -> IO CountResult count section getsharedir = onError (CountFailure . show) $ do dir <- getsharedir section - CountResult . genericLength . filter isShareFile - <$> getDirectoryContents dir + exists <- doesDirectoryExist dir + if exists + then CountResult . genericLength . filter isShareFile + <$> getDirectoryContents dir + else return (CountResult 0) move :: Section -> GetShareDir -> Storage -> IO [StoreResult] move section getsharedir storage = do |