use HsOpenSSL version that actually works

2 files changed, 3 insertions, 3 deletions

diff --git a/acme.hs b/acme.hs
index 69b0eb5..a7ccd3a 100644
--- a/acme.hs
+++ b/acme.hs
@@ -109,7 +109,7 @@ genKey privKeyFile = withOpenSSL $ do
     pem <- writePKCS8PrivateKey kp Nothing
     writeFile privKeyFile pem
 
-genReq :: FilePath -> String -> IO String
+genReq :: FilePath -> String -> IO LC.ByteString
 genReq domainKeyFile domain = withOpenSSL $ do
   Just (Keys priv pub) <- readKeyFile domainKeyFile
   Just dig <- getDigestByName "SHA256"
@@ -146,7 +146,7 @@ go CmdOpts{..} = do
 
   Just keys <- readKeyFile privKeyFile
 
-  doesFileExist domainCSRFile `otherwiseM` genReq domainKeyFile optDomain >>= writeFile domainCSRFile
+  doesFileExist domainCSRFile `otherwiseM` genReq domainKeyFile optDomain >>= LC.writeFile domainCSRFile
 
   csrData <- B.readFile domainCSRFile
 
diff --git a/stack.yaml b/stack.yaml
index e6d5f5d..a4a966d 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -8,7 +8,7 @@ packages:
 - '.'
 - location:
     git: git@github.com:afcady/HSOpenSSL.git
-    commit: 217f85d1a5ab82e3d4791bfb9f841c9303d150c6
+    commit: d120a92678da80cf8a992cc2b80c147730a05f83
   extra-dep: true
 
 # Packages to be pulled from upstream that are not in the resolver (e.g., acme-missiles-0.3)