Oops; don't use "show" with DomainName type

1 files changed, 3 insertions, 3 deletions

diff --git a/acme-certify.hs b/acme-certify.hs
index 5a50265..7849b65 100644
--- a/acme-certify.hs
+++ b/acme-certify.hs
@@ -14,7 +14,7 @@ module Main where
 import           BasePrelude
 import qualified Data.ByteString.Lazy.Char8 as LC
 import           Network.ACME               (CSR (..), canProvision, certify,
-                                             ensureWritableDir, (</>))
+                                             ensureWritableDir, (</>), domainToString)
 import           Network.ACME.Encoding      (Keys (..), readKeys, toStrict)
 import           Network.URI
 import           OpenSSL
@@ -101,10 +101,10 @@ genReq _ [] = error "genReq called with zero domains"
 genReq (Keys priv pub) domains@(domain:_) = withOpenSSL $ do
   Just dig <- getDigestByName "SHA256"
   req <- newX509Req
-  setSubjectName req [("CN", show domain)]
+  setSubjectName req [("CN", domainToString domain)]
   setVersion req 0
   setPublicKey req pub
-  void $ addExtensions req [(nidSubjectAltName, intercalate ", " (map (("DNS:" ++) . show) domains))]
+  void $ addExtensions req [(nidSubjectAltName, intercalate ", " (map (("DNS:" ++) . domainToString) domains))]
   signX509Req req priv (Just dig)
   CSR . toStrict <$> writeX509ReqDER req
   where