Integrate Persistent with Servant

Query my SQLite database from within my Servant handlers. Nothing I've written
is domain-specific to the business logic yet -- I'm just making sure everything
integrates.

1 files changed, 4 insertions, 2 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 7ec8d9f8ca82..ea2ad2621bd9 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,5 +1,7 @@
 module Main where
+--------------------------------------------------------------------------------
+import qualified App
+--------------------------------------------------------------------------------
 
 main :: IO ()
-main = do
-  putStrLn "Working..."
+main = App.run "sqlite.db"