mirror of
https://github.com/Smaug123/dmarc-fsharp
synced 2025-10-07 16:38:42 +00:00
21 lines
436 B
Forth
21 lines
436 B
Forth
namespace Dmarc.App
|
|
|
|
open System.IO
|
|
open System.Xml
|
|
open Dmarc
|
|
|
|
module Program =
|
|
[<EntryPoint>]
|
|
let main argv =
|
|
let file =
|
|
match argv with
|
|
| [| file |] -> file
|
|
| _ -> failwith "Call with exactly one arg, the XML file to parse"
|
|
|
|
use s = File.OpenRead file
|
|
let doc = XmlDocument ()
|
|
doc.Load s
|
|
|
|
let feedback = Feedback.ofXml doc.["feedback"]
|
|
0
|