10 lines
269 B
Haskell
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")
|