diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-07 14:09:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-07 14:09:33 -0400 |
| commit | 39c4fb057ab81c3bde7ef932f9eef8abb86aa92e (patch) | |
| tree | d34a739e03e4b78ad87975691963142e34372edd /doc/bugs | |
| parent | 5e01c3f2433a8cba939326f9a7aed6a73ff58ab4 (diff) | |
forwarded
Diffstat (limited to 'doc/bugs')
| -rw-r--r-- | doc/bugs/Creating_a_WebDAV_repo_under_OpenBSD.mdwn | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/doc/bugs/Creating_a_WebDAV_repo_under_OpenBSD.mdwn b/doc/bugs/Creating_a_WebDAV_repo_under_OpenBSD.mdwn index b90599b6a..f82f914ff 100644 --- a/doc/bugs/Creating_a_WebDAV_repo_under_OpenBSD.mdwn +++ b/doc/bugs/Creating_a_WebDAV_repo_under_OpenBSD.mdwn @@ -25,3 +25,29 @@ git-annex: initremote: 1 failed # End of transcript or log. """]] + +> This needs to be fixed in the haskell certificate library. +> I have filed a bug there: +> <https://github.com/vincenthz/hs-certificate/issues/26> +> +> Patch would probably be pretty simple. Based on description, something like +> this: + +[[!format patch """ +diff --git a/System/Certificate/X509/Unix.hs b/System/Certificate/X509/Unix.hs +index 8463465..74316e9 100644 +--- a/System/Certificate/X509/Unix.hs ++++ b/System/Certificate/X509/Unix.hs +@@ -50,7 +50,7 @@ listDirectoryCerts path = (map (path </>) . filter isCert <$> getDirectoryConten + isCert x = (not $ isPrefixOf "." x) && (not $ isHashedFile x) + + getSystemCertificateStore :: IO CertificateStore +-getSystemCertificateStore = makeCertificateStore . concat <$> (getSystemPath >>= listDirectoryCerts >>= mapM readCertificates) ++getSystemCertificateStore = makeCertificateStore <$> readCertificates "/etc/ssl/cert.pem" + + getSystemPath :: IO FilePath + getSystemPath = E.catch (getEnv envPathOverride) inDefault +"""]] + +> +> [[closing|done]] as no changes to git-annex can fix this. --[[Joey]] |