aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorTom Smeding <tom.smeding@gmail.com>2019-04-08 22:24:35 +0200
committerTom Smeding <tom.smeding@gmail.com>2019-04-08 22:24:35 +0200
commit04cf7ed628e840839e08f0d3c7e624200ded81b3 (patch)
tree6b260ddd7465e27b5c05e38fd3f537818909d1ec /src
parentfd5fe01514c28c26b33a49fd0bc6d0b070767575 (diff)
Fix warnings in Pretty
Diffstat (limited to 'src')
-rw-r--r--src/Pretty.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Pretty.hs b/src/Pretty.hs
index 935bc03..7792c0d 100644
--- a/src/Pretty.hs
+++ b/src/Pretty.hs
@@ -38,7 +38,7 @@ pprintPrOneline budget = pprintPr budget maxBound
pprintPrX :: Budget -> Int -> Int -> PrTree -> [String]
pprintPrX _ _ _ (Leaf str) = [str]
-pprintPrX budget wid x (Node "" subs) = map (pprintPrOneline (decNode budget)) subs
+pprintPrX budget _ _ (Node "" subs) = map (pprintPrOneline (decNode budget)) subs
pprintPrX budget wid x (Node prefix subs) =
let subrenders = map (pprintPrX (decNode budget) wid (x + indentWid)) subs
in if any ((> 1) . length) subrenders