bindStrict

gistfile1.hs

bindStrict :: Monad m => Splice m
bindStrict = do
    node <- getParamNode
    cs <- runChildren
    maybe (return ()) (add cs)
          (X.getAttribute bindAttr node)
    return []

  where
    add cs nm = modifyTS $ bindSplice nm $ do
        caller <- getParamNode
        ctx <- getContext
        rawApply cs ctx (X.childNodes caller)