hasEditPermissionSplice :: User   -- ^ Author of some.
                        -> I.Splice AppHandler
hasEditPermissionSplice author = do
    has <- lift $ hasUpdatePermission author
    if has then I.runChildren else return []

----------------------------------------------------------------------------
hasEditPermissionSplice :: User   -- ^ Author of some.
                        -> I.Splice AppHandler
hasEditPermissionSplice author = do
    has <- lift $ hasUpdatePermission author
    if has then I.runChildren else return []

----------------------------------------------------------------------------
hasEditPermissionSplice author = do
    has <- lift $ hasUpdatePermission author
    if has then I.runChildren else return []

----------------------------------------------------------------------------