From 1a31e0146a2bf34d07e4da05b3bf4c1443efd795 Mon Sep 17 00:00:00 2001
From: Christine Dodrill <xena@yolo-swag.com>
Date: Mon, 27 Jul 2015 23:47:50 -0700
Subject: [PATCH] Add User model

---
 web/src/Within/DBMemorial/User.hs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 web/src/Within/DBMemorial/User.hs

diff --git a/web/src/Within/DBMemorial/User.hs b/web/src/Within/DBMemorial/User.hs
new file mode 100644
index 0000000..3bc143e
--- /dev/null
+++ b/web/src/Within/DBMemorial/User.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Within.DBMemorial.User where
+
+import Control.Applicative
+import Data.Monoid()
+import Data.Text
+import Database.SQLite.Simple.FromRow
+
+data User = User
+          { id     :: Int
+          , oID    :: Text
+          , name   :: Text
+          , avatar :: Text
+          } deriving (Show, Eq)
+
+instance FromRow User where
+    fromRow = User <$> field <*> field <*> field <*> field