diff options
Diffstat (limited to 'doc/bugs/Creating_a_WebDAV_repo_under_OpenBSD.mdwn')
-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]] |