type MainViewModel() as self =
    inherit ViewModelBase()

    let sDate = self.Factory.Backing(<@ self.startDate @>, "")
    let display = self.Factory.Backing(<@ self.Display @>, "")

    let submitQuery() =

        let starttime = sDate.Value
        let fullURL = "http://earthquake.usgs.gov/fdsnws/event/1/query?format=geojson&starttime=" + starttime + "&orderby=magnitude-asc"

        let eqlist = EQ.Load(fullURL)

        let inputData = eqlist.ToString()
        let addLine (inputData : string) =
            use sw = new StreamWriter("temp.json", false)
            sw.WriteLine(inputData)
        addLine inputData

        display.Value <- sprintf "The start date that has been enter is:\n %s" starttime

    let submitCommand = self.Factory.CommandSync(submitQuery)

    member x.startDate with get() = sDate.Value and set value = sDate.Value <- value
    member x.Display with get() = display.Value and set value = display.Value <- value
    member x.onSubmit = submitCommand