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
where
stageInfo = if isStaged builder then "" else "stage = " ++ show stage ++ ", "
wayInfo = if way == vanilla then "" else ", way = " ++ show way
digest list = case list of
[] -> "none"
[x] -> x
xs -> head xs ++ " (and " ++ show (length xs - 1) ++ " more)"
digest [] = "none"
digest [x] = x
digest (x:xs) = x ++ " (and " ++ show (length xs) ++ " more)"
Markdown is supported
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