mirror of
https://github.com/NixOS/templates.git
synced 2026-01-13 01:38:35 +01:00
16 lines
392 B
FSharp
16 lines
392 B
FSharp
namespace HelloWorld
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module Program =
|
|
|
|
let construct (name : string) : string = sprintf "Hello, %s!" name
|
|
|
|
[<EntryPoint>]
|
|
let main argv =
|
|
match argv |> Array.tryExactlyOne with
|
|
| Some name ->
|
|
printfn "%s" (construct name)
|
|
0
|
|
| None ->
|
|
eprintfn "Expected exactly one argument"
|
|
1
|