mirror of
https://github.com/Smaug123/PulumiConfig
synced 2025-10-05 00:28:39 +00:00
13 lines
320 B
Forth
13 lines
320 B
Forth
namespace PulumiWebServer
|
|
|
|
open Pulumi
|
|
open Pulumi.Command.Local
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module Local =
|
|
let forgetKey (address : string) : Command =
|
|
let args = CommandArgs ()
|
|
args.Create <- Input.lift $"/usr/bin/ssh-keygen -R {address} || exit 0"
|
|
|
|
Command ($"forget-key-{address}", args)
|