Useful Heist Splices

gistfile1.txt

------------------------------------------------------------------------------
-- | Renders the child nodes only if the request comes from an authenticated
-- user.
ifLoggedIn :: Splice Application
ifLoggedIn = do
    node <- getParamNode
    res <- lift $ requireUser (return []) (return $ childNodes node)
    return res


------------------------------------------------------------------------------
-- | Renders the child nodes only if the request comes from a user that is not
-- logged in.
ifGuest :: Splice Application
ifGuest = do
    node <- getParamNode
    res <- lift $ requireUser (return $ childNodes node) (return [])
    return res


------------------------------------------------------------------------------
-- | Returns the current username as a text node.
currentUser :: Splice Application
currentUser = do
    mu <- lift currentAuthUser
    return $ maybe [] (\u -> [TextNode $ uUsername u]) $ (cast' . Doc . snd) =<< mu


------------------------------------------------------------------------------
-- | Prevents the whole page from rendering if the user isn't logged in.
requireAuth :: Splice Application
requireAuth = do
    lift $ requireUser pass (return [])


appSplices :: [(T.Text, Splice Application)]
appSplices =
    [("ifLoggedIn", ifLoggedIn)
    ,("ifGuest", ifGuest)
    ,("requireAuth", requireAuth)
    ,("currentUser", currentUser)
    ]