diff options
Diffstat (limited to 'cmd/Main.hs')
| -rw-r--r-- | cmd/Main.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/cmd/Main.hs b/cmd/Main.hs index 7af6a83..dbe6dac 100644 --- a/cmd/Main.hs +++ b/cmd/Main.hs @@ -4,7 +4,6 @@ module Main ( main ) where -import Control.Monad (when) import Data.Maybe (fromMaybe) import Data.Version (showVersion) import System.Environment (getArgs) @@ -12,7 +11,6 @@ import System.Exit (die) import Data.Aeson (eitherDecode, encode) import qualified Data.ByteString.Lazy as L -import qualified Data.HashMap.Strict as HM import System.Console.Docopt.NoTH (isPresent, longOption, parseArgsOrExit, parseUsageOrExit, usage) import Text.InterpolatedString.Perl6 (qc) @@ -52,9 +50,8 @@ process = do let allBills = I.bills si suppliedFunds = di2df $ I.districts si ministryLimits = mi2ml $ fromMaybe [] (I.ministries si) - in do when (HM.null suppliedFunds) $ die "We needs at least one district" - L.putStr . encode . O.encode $ - manyToManyLimited suppliedFunds ministryLimits allBills + in L.putStr . encode . O.encode $ + manyToManyLimited suppliedFunds ministryLimits allBills main :: IO () main = do |