mirror of
https://github.com/Smaug123/PulumiConfig
synced 2025-10-05 08:38:41 +00:00
27 lines
643 B
Forth
27 lines
643 B
Forth
namespace PulumiWebServer
|
|
|
|
type BashString =
|
|
private
|
|
{
|
|
Original : string
|
|
Safe : string
|
|
}
|
|
|
|
override this.ToString () = this.Safe
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module BashString =
|
|
let make (s : string) =
|
|
{
|
|
Original = s
|
|
Safe =
|
|
// This is actually of course not safe, but it's
|
|
// close enough.
|
|
if System.Object.ReferenceEquals (s, null) then
|
|
null
|
|
else
|
|
s.Replace ("'", "'\"'\"'") |> sprintf "'%s'"
|
|
}
|
|
|
|
let unsafeOriginal (s : BashString) = s.Original
|