forwarded

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]]