diff options
author | Igor Pashev <pashev.igor@gmail.com> | 2017-06-27 05:37:41 +0300 |
---|---|---|
committer | Igor Pashev <pashev.igor@gmail.com> | 2017-06-27 05:37:41 +0300 |
commit | 78004194a4d9dfabd5e64d72751f3270d3034217 (patch) | |
tree | 7b5067a58f94d6a6fe3712d5e21ab1ffffe0ef96 /cmd/Main.hs | |
parent | 20dbc9b0166f02b80b42f6ed0cff73396b2e48e6 (diff) | |
download | molodivo-78004194a4d9dfabd5e64d72751f3270d3034217.tar.gz |
Remove I/O format knowledge from library functions
Diffstat (limited to 'cmd/Main.hs')
-rw-r--r-- | cmd/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/cmd/Main.hs b/cmd/Main.hs index 69ce114..35a42a6 100644 --- a/cmd/Main.hs +++ b/cmd/Main.hs @@ -18,8 +18,9 @@ import Text.InterpolatedString.Perl6 (qc) import Malodivo.Budget (manyToMany) -import Malodivo.Types.District (di2df) import qualified Main.Input as I +import qualified Main.Output as O +import Malodivo.Types.District (di2df) import Paths_malodivo (version) -- from cabal usageHelp :: String @@ -49,7 +50,7 @@ process = do let allBills = I.bills si suppliedFunds = di2df $ I.districts si in do when (HM.null suppliedFunds) $ die "We needs at least one district" - L.putStr . encode $ manyToMany suppliedFunds allBills + L.putStr . encode . O.encode $ manyToMany suppliedFunds allBills main :: IO () main = do |