Permalink
Browse files

Main: remove catch-all case from combineActions

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
  • Loading branch information...
1 parent 5d94d84 commit 1a705a3225b15dc95d850bcf52a12e5b704c3ba7 @trofi trofi committed Jun 29, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 Main.hs
View
@@ -56,8 +56,9 @@ combineAllActions = emptyElse defaultAction (foldl1' combineActions)
-- the lower of one is a Build that they're both build.
combineActions :: Action -> Action -> Action
combineActions a1 a2 = case (a1 `min` a2) of
+ Help -> Help
+ Version -> Version
Build{} -> Build $ targets a1 `Set.union` targets a2
- a -> a
runAction :: RunModifier -> Action -> IO a
runAction _ Help = help

0 comments on commit 1a705a3

Please sign in to comment.