eidolon/Handler/Profile.hs
2014-08-14 02:26:21 +02:00

14 lines
415 B
Haskell

module Handler.Profile where
import Import
getProfileR :: UserId -> Handler Html
getProfileR userId = 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")