2014-08-12 21:45:33 +00:00
|
|
|
module Handler.Profile where
|
|
|
|
|
|
|
|
|
|
import Import
|
|
|
|
|
|
|
|
|
|
getProfileR :: Text -> Handler Html
|
2014-08-13 20:30:48 +00:00
|
|
|
getProfileR username = error "reworking logic" -- do
|
|
|
|
|
-- msu <- lookupSession "id"
|
|
|
|
|
-- case msu of
|
|
|
|
|
-- Just tempUserId -> do
|
|
|
|
|
-- userId <- Key $ PersistInt64 $ fromIntegral tempUserId
|
|
|
|
|
-- userMedia <- runDB $ selectList [MediumOwner ==. userId] [Desc MediumTime]
|
|
|
|
|
-- defaultLayout $ do
|
|
|
|
|
-- $(widgetFile "profile")
|
