import Data.List.NonEmpty (NonEmpty(..))
import Text.Ledger.Simple
import System.IO (stdout)

transaction = Transaction day "Pizza!" (posting1 :| [posting2])
  where
    posting1 = Posting "-25 CAD" "assets:bank" Nothing
    posting2 = Posting "25 CAD" "expenses:pizza" Nothing
    day      = fromGregorian 2017 9 14

main :: IO ()
main = printTransaction stdout transaction