diff --git a/ParamTree.hs b/ParamTree.hs
--- a/ParamTree.hs
+++ b/ParamTree.hs
@@ -38,7 +38,8 @@
 
 -- | Type family that converts a type level list into a function type:
 --
--- @'ParamFun' ['Char', 'Int', 'Bool'] r@ = @'Char' -> 'Int' -> 'Bool' -> 'String' -> r@
+-- @'ParamFun' ['Char', 'Int', 'Bool'] r@ =
+-- @'Char' -> 'Int' -> 'Bool' -> 'String' -> r@
 #if MIN_VERSION_base(4,7,0)
 type family ParamFun (l :: [*]) r where
     ParamFun '[] r = String -> r
@@ -216,7 +217,8 @@
     flatten :: ((String, String), [(h, Tree t)]) -> [(String, h, Tree t)]
     flatten ((param, name), rest) = map (\(v, r) -> (nextLabel, v, r)) rest
       where
-        nextLabel = param ++ " " ++ name
+        nextLabel | null name = param
+                  | otherwise = param ++ " " ++ name
 
     buildBranch
         :: ParamFun (h ': t) a
diff --git a/paramtree.cabal b/paramtree.cabal
--- a/paramtree.cabal
+++ b/paramtree.cabal
@@ -1,5 +1,5 @@
 Name:               paramtree
-Version:            0.1.0
+Version:            0.1.1
 
 Homepage:           https://github.com/merijn/paramtree
 Bug-Reports:        https://github.com/merijn/paramtree/issues