let keyFile = fqdn ++ ".key"
withFile keyFile WriteMode $ \ h ->
writePKCS8PrivateKey key Nothing >>= hPutStr h
let keyFile = fqdn ++ ".key"
withFile keyFile WriteMode $ \ h ->
writePKCS8PrivateKey key Nothing >>= hPutStr h
putStrLn ("Wrote " ++ keyFile ++ " (with no encryption)")
req <- newX509Req
setVersion req 2
setSubjectName req [("CN", fqdn)]
setPublicKey req key
putStrLn ("Wrote " ++ keyFile ++ " (with no encryption)")
req <- newX509Req
setVersion req 2
setSubjectName req [("CN", fqdn)]
setPublicKey req key
let reqFile = fqdn ++ ".req"
withFile reqFile WriteMode $ \ h ->
writeX509Req req ReqNewFormat >>= hPutStr h
let reqFile = fqdn ++ ".req"
withFile reqFile WriteMode $ \ h ->
writeX509Req req ReqNewFormat >>= hPutStr h