diff options
Diffstat (limited to 'cmd/Main/Output.hs')
-rw-r--r-- | cmd/Main/Output.hs | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/cmd/Main/Output.hs b/cmd/Main/Output.hs deleted file mode 100644 index 1024ecd..0000000 --- a/cmd/Main/Output.hs +++ /dev/null @@ -1,30 +0,0 @@ -{- -This modules describes output data for the command line utlity. --} -{-# LANGUAGE DeriveAnyClass #-} -{-# LANGUAGE DeriveGeneric #-} - -module Main.Output - ( BillBudget(..) - , zipBills - ) where - -import GHC.Generics (Generic) - -import Data.Aeson (ToJSON) - -import Malodivo.Budget (DistrictFunds) -import Malodivo.Types.Bill (Bill) - -import Main.DistrictInfo (DistrictInfo, df2di) - --- | This is output type. It describes contribution of each district into a bill. -data BillBudget = BillBudget - { bill :: Bill - , districts :: [DistrictInfo] - } deriving (Generic, ToJSON) - -zipBills :: [Bill] -> [DistrictFunds] -> [BillBudget] -zipBills = zipWith zipper - where - zipper b df = BillBudget {bill = b, districts = df2di df} |