eidolon/Handler/Profile.hs

14 lines
415 B
Haskell
Raw Normal View History

module Handler.Profile where
import Import
2014-08-14 00:26:21 +00:00
getProfileR :: UserId -> Handler Html
getProfileR userId = error "reworking logic" -- do
2014-08-13 20:30:48 +00:00
-- 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")