From 55522d3c6d43da03a8ce1869f4d29dfb2237310b Mon Sep 17 00:00:00 2001 From: Alexander Polakov Date: Wed, 13 Mar 2013 23:27:10 +0400 Subject: Remove catch-all case in runAction --- src/Actions.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Actions.hs b/src/Actions.hs index 156dc4e..cba027b 100644 --- a/src/Actions.hs +++ b/src/Actions.hs @@ -20,4 +20,3 @@ data Action = Spawn String runAction :: Action -> IO () runAction (Spawn s) = void $ system (s ++ "&") -runAction _ = return () -- cgit v1.2.3