change tuto

piaste · Jul 20, 2016 · ed632cb · ed632cb
1 parent 7e5e89b
commit ed632cb
Showing 1 changed file with 5 additions and 8 deletions.
diff --git a/docs/content/tutorial.fsx b/docs/content/tutorial.fsx
@@ -32,7 +32,8 @@ let now1 : WebPart =
     async {
       return! OK (DateTime.Now.ToString()) x
     }
-let main1 argv = 
+[<EntryPoint>]
+let main argv = 
   let time1 = GET >=> path "/time1" >=> now1
   startWebServer defaultConfig time1
   0 // return an integer exit code
@@ -50,6 +51,8 @@ open Suave.Swagger
 open Rest
 open FunnyDsl
 open Swagger
+open Suave
+open System
 
 let now : WebPart =
   fun (x : HttpContext) ->
@@ -59,12 +62,6 @@ let now : WebPart =
       return! MODEL DateTime.Now x
     }
 
-(**
-
-Using DSL:
-
-*)
-
 let api1 = 
   swagger {
     // syntax 1
@@ -75,7 +72,7 @@ let api1 =
 [<EntryPoint>]
 let main argv = 
   startWebServer defaultConfig api1.App
-  0 // return an integer exit code
+  0 // return an integer exit codexit code
 
 (**