blob: 63e5942e034891deb76c77b54a3c15ab3bfac414 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{-
This modules describes input data for the command line utlity.
-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
module Main.Input
( Input(..)
) where
import GHC.Generics (Generic)
import Data.Aeson (FromJSON)
import Malodivo.Types.Bill (Bill)
import Main.DistrictInfo (DistrictInfo)
data Input = Input
{ bills :: [Bill]
, districts :: [DistrictInfo]
} deriving (Generic, FromJSON)
|