diff options
Diffstat (limited to 'cmd/Main.hs')
| -rw-r--r-- | cmd/Main.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/cmd/Main.hs b/cmd/Main.hs index da28a98..69ce114 100644 --- a/cmd/Main.hs +++ b/cmd/Main.hs @@ -18,9 +18,8 @@ import Text.InterpolatedString.Perl6 (qc) import Malodivo.Budget (manyToMany) -import Main.DistrictInfo (di2df) +import Malodivo.Types.District (di2df) import qualified Main.Input as I -import qualified Main.Output as O import Paths_malodivo (version) -- from cabal usageHelp :: String @@ -48,10 +47,9 @@ process = do Left err -> die err Right si -> let allBills = I.bills si - billFunds = manyToMany suppliedFunds allBills suppliedFunds = di2df $ I.districts si in do when (HM.null suppliedFunds) $ die "We needs at least one district" - L.putStr . encode $ O.zipBills allBills billFunds + L.putStr . encode $ manyToMany suppliedFunds allBills main :: IO () main = do |