2014-10-14 04:16:38 +00:00
|
|
|
From 61d0e47cd038f25157e48385fc080d0d374b214d Mon Sep 17 00:00:00 2001
|
|
|
|
From: dummy <dummy@example.com>
|
|
|
|
Date: Tue, 14 Oct 2014 02:07:57 +0000
|
2014-02-11 02:50:51 +00:00
|
|
|
Subject: [PATCH] support Android cert store
|
|
|
|
|
2014-10-14 04:16:38 +00:00
|
|
|
Android has only hashsed cert files.
|
2014-02-11 02:50:51 +00:00
|
|
|
See https://github.com/vincenthz/hs-certificate/issues/19
|
|
|
|
---
|
2014-10-14 04:16:38 +00:00
|
|
|
System/X509/Unix.hs | 2 +-
|
|
|
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
2014-02-11 02:50:51 +00:00
|
|
|
|
|
|
|
diff --git a/System/X509/Unix.hs b/System/X509/Unix.hs
|
2014-10-14 04:16:38 +00:00
|
|
|
index 9df3331..a30da26 100644
|
2014-02-11 02:50:51 +00:00
|
|
|
--- a/System/X509/Unix.hs
|
|
|
|
+++ b/System/X509/Unix.hs
|
2014-10-14 04:16:38 +00:00
|
|
|
@@ -56,7 +56,7 @@ listDirectoryCerts path = do
|
2014-02-11 02:50:51 +00:00
|
|
|
&& isDigit (s !! 9)
|
|
|
|
&& (s !! 8) == '.'
|
|
|
|
&& all isHexDigit (take 8 s)
|
|
|
|
- isCert x = (not $ isPrefixOf "." x) && (not $ isHashedFile x)
|
|
|
|
+ isCert x = (not $ isPrefixOf "." x)
|
|
|
|
|
2014-10-14 04:16:38 +00:00
|
|
|
getDirContents = E.catch (Just <$> getDirectoryContents path) emptyPaths
|
|
|
|
where emptyPaths :: E.IOException -> IO (Maybe [FilePath])
|
2014-02-11 02:50:51 +00:00
|
|
|
--
|
|
|
|
1.7.10.4
|
|
|
|
|