showLTree :: [LTree] -> Widget
showLTree ls = [whamlet|
<ul>
    $forall l <- ls
        <li #label#{toSinglePiece $ lid l}>
            <span>#{lname l}
            ^{showLTree $ lchildren l}
|]
showLTree :: [LTree] -> Widget
showLTree ls = [whamlet|
<ul>
    $forall l <- ls
        <li #label#{toSinglePiece $ lid l}>
            <span>#{lname l}
            ^{showLTree $ lchildren l}
|]
showLTree ls = [whamlet|
<ul>
    $forall l <- ls
        <li #label#{toSinglePiece $ lid l}>
            <span>#{lname l}
            ^{showLTree $ lchildren l}
|]