tManagePostsR :: Handler Html
getManagePostsR = do
    uid <- requireAuthId
    (map entityVal -> posts) <- runDB $ selectList [] [Desc PostCreated]
    defaultLayout $ do
        setDtekTitle "Administrera inlägg"
        let (postslist :: Widget) = $(widgetFile "postslist")
        $(widgetFile "manage")

p
getManagePostsR :: Handler Html
getManagePostsR = do
    uid <- requireAuthId
    (map entityVal -> posts) <- runDB $ selectList [] [Desc PostCreated]
    defaultLayout $ do
        setDtekTitle "Administrera inlägg"
        let (postslist :: Widget) = $(widgetFile "postslist")
        $(widgetFile "manage")
getManagePostsR = do
    uid <- requireAuthId
    (map entityVal -> posts) <- runDB $ selectList [] [Desc PostCreated]
    defaultLayout $ do
        setDtekTitle "Administrera inlägg"
        let (postslist :: Widget) = $(widgetFile "postslist")
        $(widgetFile "manage")