paramtree 0.1.0 → 0.1.1

raw patch · 2 files changed

+5/−3 lines, 2 files

Files

• ParamTree.hs +4/−2
• paramtree.cabal +1/−1

@@ -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

@@ -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