Small change to fs script demo

gsscoder · gsscoder · commit 6262ccb65d27 · 2015-07-06T14:29:02.000+02:00
diff --git a/demo/fsharp-demo.fsx b/demo/fsharp-demo.fsx
@@ -17,7 +17,7 @@ let formatLong o =
 let formatInput (o : options)  =
     sprintf "--stringvalue: %s\n-i: %A\n-x: %b\nvalue: %s\n" o.stringValue (Array.ofSeq o.intSequence) o.boolValue (formatLong o.longValue)
 
-let (|Success|Fail|) (result : ParserResult<'a>) =
+let inline (|Success|Fail|) (result : ParserResult<'a>) =
   match result with
   | :? Parsed<'a> as parsed -> Success(parsed.Value)
   | :? NotParsed<'a> as notParsed -> Fail(notParsed.Errors)
