anchor.diff:            path "/" >>= OK "Hello!"
             path "/login" >>= OK "This should have some login info"
             path "/goodbye" >>= OK "Good bye!"
  +          basicAuth // from here on it will require authentication
             path "/api/v1/sensor" >>= JSON (Db.GetSensorIds())
             path "/api/v1/sensor/status" >>= JSON (Db.GetSensorStatus(Db.getCurrentTime()))
             pathScan "/api/v1/sensor/%s" (fun (id) -> JSON (Db.AllSensorData(id)))
  
positive.code: open Suave.Http
  open Suave.Http.Applicatives
  open Suave.Http.Successful
  open Suave.Utils
  open Suave.Web
  open Newtonsoft.Json
  open Newtonsoft.Json.Serialization
  
  
negative.code:           pathScan "/api/v1/noise/%s/%d" (fun (id, min) -> JSON (Db.NoiseValuesFromDuration(id, min)))
            pathScan "/api/v1/voc/avg/%s/%d" (fun (id, min) -> JSON (Db.AvgVoc(id, min)))
            pathScan "/api/v1/voc/%s/%d" (fun (id, min) -> JSON (Db.VocValuesFromDuration(id, min)))
            path "/api/v1/last" >>= JSON (Db.LastUpdate())
          ]
        POST >>= choose
  