4 ms·
Love the use of quasiquotation here: import Database.PostgreSQL.Simple.SqlQQ (sql) ... let index :: Handler Markup index = do
by kyllo 7y ago
Love the use of quasiquotation here:
import Database.PostgreSQL.Simple.SqlQQ (sql)
...
let index :: Handler Markup
index = do
tweets <- query_ [sql|
SELECT "user".name, tweet.contents
FROM "user"
INNER JOIN user_tweet ON "user".name = user_tweet."user"
INNER JOIN tweet ON user_tweet.tweet = tweet.id
ORDER BY tweet.time DESC
|]