withFile certFile WriteMode $ \ h ->
writeX509 cert >>= hPutStr h
putStrLn ("Wrote " ++ certFile)
Just (_, fqdn) <- liftM (find ((== "CN") . fst)) $ X509.getSubjectName cert False
putStrLn ("Now send " ++ certFile ++ " back to " ++ fqdn ++ ".")
withFile certFile WriteMode $ \ h ->
writeX509 cert >>= hPutStr h
putStrLn ("Wrote " ++ certFile)
Just (_, fqdn) <- liftM (find ((== "CN") . fst)) $ X509.getSubjectName cert False
putStrLn ("Now send " ++ certFile ++ " back to " ++ fqdn ++ ".")