Brought in data model / dependencies

A combination of the previous effort plus a few things swiped from
Quatro

src/App.fs

@@ -0,0 +1,36 @@
+/// Main server module for myPrayerJournal
+module MyPrayerJournal.App
+
+open Reader
+open System.IO
+open Suave
+open Suave.Filters
+open Suave.Operators
+
+/// Data Configuration singleton 
+let lazyCfg = lazy (DataConfig.FromJson <| try File.ReadAllText "data-config.json" with _ -> "{}")
+/// RethinkDB connection singleton
+let lazyConn = lazy lazyCfg.Force().CreateConnection ()
+/// Application dependencies
+let deps = {
+  new IDependencies with
+    member __.Conn with get () = lazyConn.Force ()
+  }
+
+/// Suave application
+let app : WebPart =
+  choose [
+    GET >=> Files.browseHome
+    GET >=> Files.browseFileHome "index.html"
+    RequestErrors.NOT_FOUND "Page not found." 
+  ]
+let suaveCfg = { defaultConfig with homeFolder = Some (Path.GetFullPath "./wwwroot/") }
+  
+[<EntryPoint>]
+let main argv = 
+  // Establish the data environment
+  liftDep getConn (Data.establishEnvironment >> Async.RunSynchronously)
+  |> run deps
+
+  startWebServer suaveCfg app
+  0