eidolon/Handler/Profile.hs

10 lines
269 B
Haskell

module Handler.Profile where
import Import
getProfileR :: Text -> Handler Html
getProfileR username = do
msu <- lookupSession "username"
userMedia <- runDB $ selectList [MediumOwner ==. username] [Desc MediumTime]
defaultLayout $ do
$(widgetFile "profile")