get_ :: AppM [User]
get_ = ask >>= \state -> db state.pool $ \conn -> do
    [Only users] :: [Only Value] <- query_ conn "SELECT * from users where data->>'username' = 'Tester'"
    case fromJSON users of
        Success a -> pure [a]
        Error e   -> error e