getLabelsR :: Handler RepHtml
getLabelsR = do
    (_, user) <- requireAuth
    unless (userAdmin user) $ permissionDenied ""
    ((_, newform), _) <- newLabelForm
    ltree <- getLTree
    defaultLayout $ do
        addScript $ StaticR jquery_js
        addLucius $(luciusFile "edit-map")
        $(widgetFile "labels")
getLabelsR :: Handler RepHtml
getLabelsR = do
    (_, user) <- requireAuth
    unless (userAdmin user) $ permissionDenied ""
    ((_, newform), _) <- newLabelForm
    ltree <- getLTree
    defaultLayout $ do
        addScript $ StaticR jquery_js
        addLucius $(luciusFile "edit-map")
        $(widgetFile "labels")
getLabelsR = do
    (_, user) <- requireAuth
    unless (userAdmin user) $ permissionDenied ""
    ((_, newform), _) <- newLabelForm
    ltree <- getLTree
    defaultLayout $ do
        addScript $ StaticR jquery_js
        addLucius $(luciusFile "edit-map")
        $(widgetFile "labels")