Work with empty structures

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