tests/Tests/Entity.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 module Tests.Entity where
   4
   5 import Literate.Invoice.Invoice
   6 import Literate.Prelude
   7
   8 bureau1 =
   9   Address
  10     { addressText =
  11         [ "3, place du Monument"
  12         , "Mairie - Bureau 1"
  13         ]
  14     , addressCity = "Gentioux-Pigerolles"
  15     , addressZipCode = "23340"
  16     , addressCountry = "France"
  17     }
  18
  19 julmInfo =
  20   Entity
  21     { entityId = Id 1
  22     , entityName = "julminfo / Julien Moutinho"
  23     , entityAddress = bureau1
  24     , entityEmail = Just "julm@sourcephile.fr"
  25     , entitySIREN = Just "942798083"
  26     }
  27 nixosFoundationNGITeam =
  28   Entity
  29     { entityId = Id 2
  30     , entityName = "NixOS Foundation / Nix@NGI Team"
  31     , entityEmail = Just "ngi@nixos.org"
  32     , entityAddress =
  33         Address
  34           { addressText =
  35               [ "Korte Lijnbaanssteeg 1-4318"
  36               ]
  37           , addressZipCode = "1012 SL"
  38           , addressCity = "Amsterdam"
  39           , addressCountry = "Netherlands"
  40           }
  41     , entitySIREN = Nothing
  42     }