affinespaces.hs

-- dmwit style

module Parser where

import Data.Time

data Transaction = Transaction
    { amount :: Double
    , time :: UTCTime
    , tags :: [String]
    } deriving Show

-- also not the absolute worst

module Parser where

import Data.Time

type Amount = Double
type Tags = [String]

data Transaction = Transaction
    { amount :: Amount
    , time :: UTCTime
    , tags :: Tags
    } deriving Show