From fd944b3e34d4d8a8702bb8c6b55d63a12cf4a8b4 Mon Sep 17 00:00:00 2001
From: Christine Dodrill <xena@yolo-swag.com>
Date: Tue, 28 Jul 2015 08:51:02 -0700
Subject: [PATCH] query and show a user from the database

---
 web/src/Main.hs                   | 9 +++++----
 web/src/Within/DBMemorial/User.hs | 4 +++-
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/web/src/Main.hs b/web/src/Main.hs
index 759bbdd..a4a5a7a 100644
--- a/web/src/Main.hs
+++ b/web/src/Main.hs
@@ -19,6 +19,8 @@ main = do
     -- Simple tests to prove we're reading from SQLite
     r <- Db.query_ conn "SELECT * FROM Posts WHERE page=1" :: IO [Post.Post]
     let h = head r
+    users <- Db.query_ conn "SELECT * FROM Users WHERE id=1" :: IO [User.User]
+    let user = head users
 
     -- Set up the URL router
     S.runSpock 5000 $ S.spockT id $ do
@@ -27,7 +29,6 @@ main = do
 
          S.get S.root $
            S.html $ toStrict (renderHtml (Materialize.base "The OP" (Post.render h)))
-         {-S.get ("users" <//> S.var) $ \id ->
-           S.text renderHtml $ User.render $ do
-             res <- Db.query_ conn "SELECT * FROM Users WHERE id=?" id :: IO [User.User]
-             head res-}
+
+         S.get "user" $
+           S.html $ toStrict (renderHtml (Materialize.base "The first poster" (User.render user)))
diff --git a/web/src/Within/DBMemorial/User.hs b/web/src/Within/DBMemorial/User.hs
index add2526..18ea3ce 100644
--- a/web/src/Within/DBMemorial/User.hs
+++ b/web/src/Within/DBMemorial/User.hs
@@ -24,4 +24,6 @@ render user = do
     H.div ! A.class_ "card blue-grey darken-1" $ do
       H.div ! A.class_ "card-content white-text" $ do
         H.span ! A.class_ "card-title" $ H.toHtml $ unpack (name user)
-        H.img ! A.src (H.toValue $ unpack $ avatar user)
+        H.br
+        H.a ! A.href (H.toValue ("https://derpibooru.org/profiles/" ++ unpack (oID user))) $ do
+          H.img ! A.src (H.toValue $ unpack $ avatar user)