make the types more explicit

web/src/Main.hs

@@ -1,19 +1,19 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Main where
 
-import Database.SQLite.Simple
+import qualified Database.SQLite.Simple as Db
-import Web.Spock.Safe hiding (head)
+import qualified Web.Spock.Safe as S hiding (head)
 import Within.DBMemorial.Post
 
 main :: IO ()
 main = do
-    conn <- open "../db/posts.db"
+    conn <- Db.open "../db/posts.db"
 
     -- Simple tests to prove we're reading from SQLite
-    r <- query_ conn "SELECT * FROM Posts WHERE page=1" :: IO [Post]
+    r <- Db.query_ conn "SELECT * FROM Posts WHERE page=1" :: IO [Post]
     let h = head r
 
     -- Set up the URL router
-    runSpock 5000 $ spockT id $ do
+    S.runSpock 5000 $ S.spockT id $ do
-         get root $
+         S.get S.root $
-           text $ postBody h
+           S.text $ postBody h