From 9e9f8e11bb2728db084038c1a34272931435c30f Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Tue, 27 Jun 2017 07:02:26 +0300 Subject: Work with empty structures --- cmd/Main.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'cmd') 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 -- cgit v1.2.3