eidolon/Handler/Profile.hs

14 lines
415 B
Haskell
Raw Normal View History

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")