Commit 02ec50d9 authored by Neil Mitchell's avatar Neil Mitchell
Browse files

Rewrite digest, avoid using list (to avoid a shadow warning), and avoid using...

Rewrite digest, avoid using list (to avoid a shadow warning), and avoid using head (partial function)
parent dbe8c1e0
...@@ -132,7 +132,6 @@ putInfo (Target.Target {..}) = putBuild $ renderBox ...@@ -132,7 +132,6 @@ putInfo (Target.Target {..}) = putBuild $ renderBox
where where
stageInfo = if isStaged builder then "" else "stage = " ++ show stage ++ ", " stageInfo = if isStaged builder then "" else "stage = " ++ show stage ++ ", "
wayInfo = if way == vanilla then "" else ", way = " ++ show way wayInfo = if way == vanilla then "" else ", way = " ++ show way
digest list = case list of digest [] = "none"
[] -> "none" digest [x] = x
[x] -> x digest (x:xs) = x ++ " (and " ++ show (length xs) ++ " more)"
xs -> head xs ++ " (and " ++ show (length xs - 1) ++ " more)"
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment