diff options
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 cac12b3..637a31b 100644 --- a/Storage/Local.hs +++ b/Storage/Local.hs @@ -55,8 +55,11 @@ localStorageOverride :: FilePath -> IO (Maybe Storage) localStorageOverride d = onError' accesserror $ do -- Check that the directory can be written to. createDirectoryIfMissing True d - writeFile (d </> "test.keysafe") "test" - removeFile (d </> "test.keysafe") + -- Use a filename as long as used for keysafe share files. + let f = d </> "testtesttesttesttesttesttesttesttesttesttesttesttesttesttesttest.keysafe" + writeFile f "test" + _ <- readFile f + removeFile f return $ Just $ localStorage LocallyPreferred (\_ -> pure d) "" where accesserror e = do |