Rewrite digest, avoid using list (to avoid a shadow warning), and avoid using head...
authorNeil Mitchell <ndmitchell@gmail.com>
Sat, 9 Jan 2016 21:46:36 +0000 (21:46 +0000)
committerNeil Mitchell <ndmitchell@gmail.com>
Sat, 9 Jan 2016 21:46:36 +0000 (21:46 +0000)
src/Rules/Actions.hs

index 51f7625..338bec3 100644 (file)
@@ -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)"