Suave index

suave index

module Main

open Suave                 // always open suave
open Suave.Http.Successful // for OK-result
open Suave.Web             // for config

open Suave.Http
open Suave.Http.Applicatives
open Suave.Http.Successful
open Suave.Web

open System
open System.IO

let index () : string = 
  let reader = new StreamReader("index.html")
  reader.ReadToEnd()
  
let app =
  choose
    [ GET >>= choose
        [ path "/hello" >>= OK (index ()) ] ]
    
[<EntryPoint>]
let main args =
  startWebServer defaultConfig app
  0