Get user on database using session value (Haskell - Yesod) -

i want user information database using session value instead key.

use this:

    getprofiler :: handler html     getprofiler =     user <- rundb $ get404 $ lookupsession "_id"     defaultlayout $         $(whamletfile "templates/profile.hamlet") 

instead this:

    getprofiler :: userid -> handler html     getprofiler uid =     user <- rundb $ get404 uid     defaultlayout $         $(whamletfile "templates/profile.hamlet") 

is possible? not recommended?

the type of lookupsession is:

lookupsession :: monadhandler m => text -> m (maybe text) 

so try this:

    getprofiler :: handler html     getprofiler =       uid <- lookupsession "_id"       user <- rundb $ get404 (just uid)       defaultlayout $         $(whamletfile "templates/profile.hamlet")