tests/Tests/Invoice.hs

   1 {-# LANGUAGE OverloadedLists #-}
   2 {-# LANGUAGE OverloadedStrings #-}
   3
   4 module Tests.Invoice where
   5
   6 import Data.List qualified as List
   7 import Data.Map.Strict qualified as Map
   8 import Data.Text.Lazy qualified as Text.Lazy
   9 import Data.Time.Clock qualified as Time
  10 import Data.Time.LocalTime qualified as Time
  11 import Literate.Accounting.Math
  12 import Literate.Document qualified as Doc
  13 import Literate.Document.HTML qualified as HTML
  14 import Literate.Invoice.HTML qualified as HTML
  15 import Literate.Invoice.Invoice
  16 import Literate.Organization (organization)
  17 import Literate.Prelude
  18 import Test.Syd
  19 import Tests.Organization qualified
  20 import Tests.Utils.Tests
  21 import Text.Blaze.Renderer.Text qualified as Blaze.Text
  22 import Text.Blaze.Renderer.Utf8 qualified as Blaze
  23 import Prelude (undefined, (*))
  24
  25 spec :: HasCallStack => Spec
  26 spec =
  27   -- aroundAll readDicts do
  28   describe "Invoice" do
  29     forM_ (invoices & Map.toList) \(invId, inv) -> do
  30       let idS = invId & Doc.toInline & HTML.toHtml & Blaze.Text.renderMarkup & Text.Lazy.unpack
  31       outPath <- goldenPath idS "html"
  32       it idS do
  33         goldenByteStringBuilderFile outPath do
  34           HTML.htmlIO (invId, inv) <&> Blaze.renderMarkupBuilder
  35
  36 ngipkgsLog :: [InvoiceLog]
  37 ngipkgsLog =
  38   [ InvoiceLog
  39       { invoiceLogDate = "2025-11-06"
  40       , invoiceLogDuration = 0.5
  41       , invoiceLogAction = ["organization"]
  42       , invoiceLogScope = ["NGIpkgs"]
  43       , invoiceLogReferences = ["https://meet.google.com/hii-druc-tjp"]
  44       , invoiceLogDescription = "first meeting"
  45       }
  46   , InvoiceLog
  47       { invoiceLogDate = "2025-11-06"
  48       , invoiceLogDuration = 4
  49       , invoiceLogAction = ["development"]
  50       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
  51       , invoiceLogReferences = ["https://github.com/ju1m/bonfire-app/commits/nix"]
  52       , invoiceLogDescription = "focus on the hardest part first"
  53       }
  54   , InvoiceLog
  55       { invoiceLogDate = "2025-11-07"
  56       , invoiceLogDuration = 8
  57       , invoiceLogAction = ["development"]
  58       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
  59       , invoiceLogReferences = ["https://github.com/ju1m/bonfire-app/commits/nix"]
  60       , invoiceLogDescription = "continuing to package Bonfire deps"
  61       }
  62   , InvoiceLog
  63       { invoiceLogDate = "2025-11-08"
  64       , invoiceLogDuration = 0.1
  65       , invoiceLogAction = ["development"]
  66       , invoiceLogScope = ["Nixpkgs", "opencv"]
  67       , invoiceLogReferences = ["https://github.com/NixOS/nixpkgs/pull/459592"]
  68       , invoiceLogDescription = "fix opencv in nixpkgs"
  69       }
  70   , InvoiceLog
  71       { invoiceLogDate = "2025-11-09"
  72       , invoiceLogDuration = 8
  73       , invoiceLogAction = ["development"]
  74       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
  75       , invoiceLogReferences = ["https://github.com/ju1m/bonfire-app/commits/nix"]
  76       , invoiceLogDescription = "continue to fix deps"
  77       }
  78   , InvoiceLog
  79       { invoiceLogDate = "2025-11-09"
  80       , invoiceLogDuration = 4
  81       , invoiceLogAction = ["development"]
  82       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
  83       , invoiceLogReferences = ["https://github.com/ju1m/bonfire-app/commits/nix"]
  84       , invoiceLogDescription = "continue to fix deps"
  85       }
  86   , InvoiceLog
  87       { invoiceLogDate = "2025-11-11"
  88       , invoiceLogDuration = 6
  89       , invoiceLogAction = ["development"]
  90       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
  91       , invoiceLogReferences = ["https://github.com/ju1m/bonfire-app/commits/nix"]
  92       , invoiceLogDescription = "continue to fix deps"
  93       }
  94   , InvoiceLog
  95       { invoiceLogDate = "2025-11-12"
  96       , invoiceLogDuration = 4
  97       , invoiceLogAction = ["development"]
  98       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
  99       , invoiceLogReferences = ["https://github.com/ju1m/bonfire-app/commits/nix"]
 100       , invoiceLogDescription = "continue to fix deps"
 101       }
 102   , InvoiceLog
 103       { invoiceLogDate = "2025-11-14"
 104       , invoiceLogDuration = 5
 105       , invoiceLogAction = ["development"]
 106       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 107       , invoiceLogReferences = ["https://github.com/ngi-nix/ngipkgs/pull/1812"]
 108       , invoiceLogDescription = "continue to fix deps and move into ngipkgs"
 109       }
 110   , InvoiceLog
 111       { invoiceLogDate = "2025-11-14"
 112       , invoiceLogDuration = 1
 113       , invoiceLogAction = ["organization"]
 114       , invoiceLogScope = ["NGIpkgs"]
 115       , invoiceLogReferences = ["https://www.notion.so/nixos-foundation/Nix-NGI-weekly-review-34-2ab59d49e1be80939503c655b009e934"]
 116       , invoiceLogDescription = "weekly meeting"
 117       }
 118   , InvoiceLog
 119       { invoiceLogDate = "2025-11-15"
 120       , invoiceLogDuration = 6
 121       , invoiceLogAction = ["development"]
 122       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 123       , invoiceLogReferences = []
 124       , invoiceLogDescription = "finish to build Bonfire and start to fix runtime bugs"
 125       }
 126   , InvoiceLog
 127       { invoiceLogDate = "2025-11-16"
 128       , invoiceLogDuration = 4
 129       , invoiceLogAction = ["development"]
 130       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 131       , invoiceLogReferences = ["https://github.com/ngi-nix/ngipkgs/pull/1812#issuecomment-3537609170"]
 132       , invoiceLogDescription = "workaround and contribute upstream"
 133       }
 134   , InvoiceLog
 135       { invoiceLogDate = "2025-11-17"
 136       , invoiceLogDuration = 8
 137       , invoiceLogAction = ["development"]
 138       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 139       , invoiceLogReferences = []
 140       , invoiceLogDescription = "add updateScript and fix opencv"
 141       }
 142   , InvoiceLog
 143       { invoiceLogDate = "2025-11-19"
 144       , invoiceLogDuration = 8
 145       , invoiceLogAction = ["development"]
 146       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 147       , invoiceLogReferences = ["https://github.com/ngi-nix/ngipkgs/pull/1812#issuecomment-3554376221"]
 148       , invoiceLogDescription = "continue to fix startup crashes"
 149       }
 150   , InvoiceLog
 151       { invoiceLogDate = "2025-11-21"
 152       , invoiceLogDuration = 4
 153       , invoiceLogAction = ["development"]
 154       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 155       , invoiceLogReferences = []
 156       , invoiceLogDescription = "begin to package yarn assets. Upstream likes convoluted code and fake libraries."
 157       }
 158   , InvoiceLog
 159       { invoiceLogDate = "2025-11-21"
 160       , invoiceLogDuration = 1
 161       , invoiceLogAction = ["organization"]
 162       , invoiceLogScope = ["NGIpkgs"]
 163       , invoiceLogReferences = []
 164       , invoiceLogDescription = "weekly meeting"
 165       }
 166   , InvoiceLog
 167       { invoiceLogDate = "2025-11-21"
 168       , invoiceLogDuration = 4
 169       , invoiceLogAction = ["development"]
 170       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 171       , invoiceLogReferences = []
 172       , invoiceLogDescription = "continue to package assets"
 173       }
 174   , InvoiceLog
 175       { invoiceLogDate = "2025-11-23"
 176       , invoiceLogDuration = 4
 177       , invoiceLogAction = ["development"]
 178       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 179       , invoiceLogReferences = []
 180       , invoiceLogDescription = "continue to package assets and try to get Bonfire to work"
 181       }
 182   , InvoiceLog
 183       { invoiceLogDate = "2025-11-24"
 184       , invoiceLogDuration = 10
 185       , invoiceLogAction = ["development"]
 186       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 187       , invoiceLogReferences = ["https://github.com/surface-ui/surface/issues/762#issuecomment-3577030748"]
 188       , invoiceLogDescription = "continue to solve problems with Bonfire packaging"
 189       }
 190   , InvoiceLog
 191       { invoiceLogDate = "2025-11-27"
 192       , invoiceLogDuration = 8
 193       , invoiceLogAction = ["development"]
 194       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 195       , invoiceLogReferences = ["https://github.com/ngi-nix/ngipkgs/pull/1812#issuecomment-3584319056"]
 196       , invoiceLogDescription = "successfully auto-update and build Bonfire"
 197       }
 198   , InvoiceLog
 199       { invoiceLogDate = "2025-11-28"
 200       , invoiceLogDuration = 1
 201       , invoiceLogAction = ["organization"]
 202       , invoiceLogScope = ["NGIpkgs"]
 203       , invoiceLogReferences = ["https://www.notion.so/nixos-foundation/Nix-NGI-weekly-review-36-2b959d49e1be80fa823cd4d83581fda5#2b959d49e1be80fc85eed38c9a9dca86"]
 204       , invoiceLogDescription = "weekly meeting"
 205       }
 206   , InvoiceLog
 207       { invoiceLogDate = "2025-11-29"
 208       , invoiceLogDuration = 5
 209       , invoiceLogAction = ["development"]
 210       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 211       , invoiceLogReferences = []
 212       , invoiceLogDescription = "begin the service module"
 213       }
 214   , InvoiceLog
 215       { invoiceLogDate = "2025-12-02"
 216       , invoiceLogDuration = 4
 217       , invoiceLogAction = ["development"]
 218       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 219       , invoiceLogReferences = []
 220       , invoiceLogDescription = "continue the service module"
 221       }
 222   , InvoiceLog
 223       { invoiceLogDate = "2025-12-03"
 224       , invoiceLogDuration = 8
 225       , invoiceLogAction = ["development"]
 226       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 227       , invoiceLogReferences = []
 228       , invoiceLogDescription = "first working service module"
 229       }
 230   , InvoiceLog
 231       { invoiceLogDate = "2025-12-04"
 232       , invoiceLogDuration = 5
 233       , invoiceLogAction = ["development"]
 234       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 235       , invoiceLogReferences = ["https://github.com/ngi-nix/ngipkgs/pull/1871"]
 236       , invoiceLogDescription = "improve service module"
 237       }
 238   , InvoiceLog
 239       { invoiceLogDate = "2025-12-05"
 240       , invoiceLogDuration = 1
 241       , invoiceLogAction = ["organization"]
 242       , invoiceLogScope = ["NGIpkgs"]
 243       , invoiceLogReferences = ["https://www.notion.so/nixos-foundation/Nix-NGI-weekly-review-36-2b959d49e1be80fa823cd4d83581fda5"]
 244       , invoiceLogDescription = "weekly meeting"
 245       }
 246   , InvoiceLog
 247       { invoiceLogDate = "2025-12-05"
 248       , invoiceLogDuration = 0.5
 249       , invoiceLogAction = ["documentation"]
 250       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 251       , invoiceLogReferences = ["https://github.com/ngi-nix/ngipkgs/pull/1954"]
 252       , invoiceLogDescription = "meeting"
 253       }
 254   , InvoiceLog
 255       { invoiceLogDate = "2025-12-06"
 256       , invoiceLogDuration = 2
 257       , invoiceLogAction = ["documentation"]
 258       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 259       , invoiceLogReferences = []
 260       , invoiceLogDescription = "prepare wednesday meeting"
 261       }
 262   , InvoiceLog
 263       { invoiceLogDate = "2025-12-07"
 264       , invoiceLogDuration = 4
 265       , invoiceLogAction = ["documentation"]
 266       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 267       , invoiceLogReferences = []
 268       , invoiceLogDescription = "prepare demo for wednesday meeting"
 269       }
 270   , InvoiceLog
 271       { invoiceLogDate = "2025-12-08"
 272       , invoiceLogDuration = 4
 273       , invoiceLogAction = ["documentation"]
 274       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 275       , invoiceLogReferences = ["https://github.com/ngi-nix/ngipkgs/pull/1891"]
 276       , invoiceLogDescription = "prepare demo for wednesday meeting"
 277       }
 278   , InvoiceLog
 279       { invoiceLogDate = "2025-12-09"
 280       , invoiceLogDuration = 4
 281       , invoiceLogAction = ["documentation"]
 282       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 283       , invoiceLogReferences = ["https://github.com/ngi-nix/ngipkgs/pull/1891"]
 284       , invoiceLogDescription = "continue to document"
 285       }
 286   , InvoiceLog
 287       { invoiceLogDate = "2025-12-10"
 288       , invoiceLogDuration = 2
 289       , invoiceLogAction = ["review"]
 290       , invoiceLogScope = ["NGIpkgs"]
 291       , invoiceLogReferences = ["https://www.notion.so/nixos-foundation/Nix-NGI-best-practices-for-NixOS-modules-implementation-2c559d49e1be80a8a499f21abb203d6f"]
 292       , invoiceLogDescription = "visio on “best practices”"
 293       }
 294   , InvoiceLog
 295       { invoiceLogDate = "2025-12-12"
 296       , invoiceLogDuration = 1
 297       , invoiceLogAction = ["organization"]
 298       , invoiceLogScope = ["NGIpkgs"]
 299       , invoiceLogReferences = []
 300       , invoiceLogDescription = "weekly visio meeting"
 301       }
 302   , InvoiceLog
 303       { invoiceLogDate = "2025-12-11"
 304       , invoiceLogDuration = 8
 305       , invoiceLogAction = ["documentation"]
 306       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 307       , invoiceLogReferences = []
 308       , invoiceLogDescription = "continue to document"
 309       }
 310   , InvoiceLog
 311       { invoiceLogDate = "2025-12-12"
 312       , invoiceLogDuration = 4
 313       , invoiceLogAction = ["documentation"]
 314       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 315       , invoiceLogReferences = []
 316       , invoiceLogDescription = "continue to document"
 317       }
 318   , InvoiceLog
 319       { invoiceLogDate = "2025-12-13"
 320       , invoiceLogDuration = 2
 321       , invoiceLogAction = ["documentation"]
 322       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 323       , invoiceLogReferences = []
 324       , invoiceLogDescription =
 325           [ "setup sphinx like "
 326           , Doc.InlineLink
 327               { Doc.inlineLinkTarget = "https://nix.dev"
 328               , Doc.inlineLinkText = "nix.dev"
 329               }
 330           , " for the manuals"
 331           ]
 332       }
 333   , InvoiceLog
 334       { invoiceLogDate = "2025-12-13"
 335       , invoiceLogDuration = 5
 336       , invoiceLogAction = ["development"]
 337       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 338       , invoiceLogReferences = ["https://github.com/bonfire-networks/bonfire-app/issues/1670#issuecomment-3650762914"]
 339       , invoiceLogDescription = "update to latest; overcoming new bugs introduced by upstream"
 340       }
 341   , InvoiceLog
 342       { invoiceLogDate = "2025-12-15"
 343       , invoiceLogDuration = 4
 344       , invoiceLogAction = ["development"]
 345       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 346       , invoiceLogReferences = []
 347       , invoiceLogDescription = "improving the update script and still overcoming upstream bugs"
 348       }
 349   , InvoiceLog
 350       { invoiceLogDate = "2025-12-16"
 351       , invoiceLogDuration = 3
 352       , invoiceLogAction = ["development"]
 353       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 354       , invoiceLogReferences = []
 355       , invoiceLogDescription = "overcoming bugs, again"
 356       }
 357   , InvoiceLog
 358       { invoiceLogDate = "2025-12-16"
 359       , invoiceLogDuration = 2
 360       , invoiceLogAction = ["review"]
 361       , invoiceLogScope = ["NGIpkgs"]
 362       , invoiceLogReferences = []
 363       , invoiceLogDescription = "visio to review PRs"
 364       }
 365   , InvoiceLog
 366       { invoiceLogDate = "2025-12-16"
 367       , invoiceLogDuration = 2
 368       , invoiceLogAction = ["review"]
 369       , invoiceLogScope = ["NGIpkgs"]
 370       , invoiceLogReferences = []
 371       , invoiceLogDescription = "visio to review PRs"
 372       }
 373   , InvoiceLog
 374       { invoiceLogDate = "2025-12-17"
 375       , invoiceLogDuration = 1.5
 376       , invoiceLogAction = ["review"]
 377       , invoiceLogScope = ["NGIpkgs"]
 378       , invoiceLogReferences = []
 379       , invoiceLogDescription = "visio to review PRs"
 380       }
 381   , InvoiceLog
 382       { invoiceLogDate = "2025-12-18"
 383       , invoiceLogDuration = 1
 384       , invoiceLogAction = ["review"]
 385       , invoiceLogScope = ["NGIpkgs", "dnsvizor"]
 386       , invoiceLogReferences = []
 387       , invoiceLogDescription = "review linj’s PR"
 388       }
 389   , InvoiceLog
 390       { invoiceLogDate = "2025-12-19"
 391       , invoiceLogDuration = 1.5
 392       , invoiceLogAction = ["organization"]
 393       , invoiceLogScope = ["NGIpkgs"]
 394       , invoiceLogReferences = []
 395       , invoiceLogDescription = "weekly meeting"
 396       }
 397   , InvoiceLog
 398       { invoiceLogDate = "2025-12-21"
 399       , invoiceLogDuration = 4
 400       , invoiceLogAction = ["development"]
 401       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 402       , invoiceLogReferences = []
 403       , invoiceLogDescription =
 404           [ "fix bug using "
 405           , "__structuredAttrs" & Doc.InlineCode
 406           ]
 407       }
 408   , InvoiceLog
 409       { invoiceLogDate = "2025-12-23"
 410       , invoiceLogDuration = 4
 411       , invoiceLogAction = ["documentation"]
 412       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 413       , invoiceLogReferences = []
 414       , invoiceLogDescription = "improve building the manuals"
 415       }
 416   , InvoiceLog
 417       { invoiceLogDate = "2025-12-23"
 418       , invoiceLogDuration = 2
 419       , invoiceLogAction = ["development"]
 420       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 421       , invoiceLogReferences = []
 422       , invoiceLogDescription = "address reviewers’ concerns"
 423       }
 424   , InvoiceLog
 425       { invoiceLogDate = "2025-12-24"
 426       , invoiceLogDuration = 4
 427       , invoiceLogAction = ["development"]
 428       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 429       , invoiceLogReferences = []
 430       , invoiceLogDescription = "update Bonfire and report issues upstream"
 431       }
 432   , InvoiceLog
 433       { invoiceLogDate = "2025-12-24"
 434       , invoiceLogDuration = 4
 435       , invoiceLogAction = ["documentation"]
 436       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 437       , invoiceLogReferences = []
 438       , invoiceLogDescription = "document"
 439       }
 440   , InvoiceLog
 441       { invoiceLogDate = "2025-12-24"
 442       , invoiceLogDuration = 2
 443       , invoiceLogAction = ["development"]
 444       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 445       , invoiceLogReferences = []
 446       , invoiceLogDescription = "update Bonfire to fix bugs"
 447       }
 448   , InvoiceLog
 449       { invoiceLogDate = "2025-12-25"
 450       , invoiceLogDuration = 2
 451       , invoiceLogAction = ["documentation"]
 452       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 453       , invoiceLogReferences = []
 454       , invoiceLogDescription = "document"
 455       }
 456   , InvoiceLog
 457       { invoiceLogDate = "2025-12-25"
 458       , invoiceLogDuration = 6
 459       , invoiceLogAction = ["development"]
 460       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 461       , invoiceLogReferences = ["https://github.com/bonfire-networks/bonfire-app/issues/1698#issuecomment-3692147409"]
 462       , invoiceLogDescription = "update and fix bugs"
 463       }
 464   , InvoiceLog
 465       { invoiceLogDate = "2025-12-26"
 466       , invoiceLogDuration = 1
 467       , invoiceLogAction = ["development"]
 468       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 469       , invoiceLogReferences = []
 470       , invoiceLogDescription = "update to fix bugs"
 471       }
 472   , InvoiceLog
 473       { invoiceLogDate = "2025-12-28"
 474       , invoiceLogDuration = 6
 475       , invoiceLogAction = ["documentation"]
 476       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 477       , invoiceLogReferences = []
 478       , invoiceLogDescription = "document"
 479       }
 480   , InvoiceLog
 481       { invoiceLogDate = "2025-12-29"
 482       , invoiceLogDuration = 2
 483       , invoiceLogAction = ["development"]
 484       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 485       , invoiceLogReferences = []
 486       , invoiceLogDescription = "add more tests"
 487       }
 488   , InvoiceLog
 489       { invoiceLogDate = "2025-12-29"
 490       , invoiceLogDuration = 0.5
 491       , invoiceLogAction = ["review"]
 492       , invoiceLogScope = ["NGIpkgs", "Funkwhale"]
 493       , invoiceLogReferences = ["https://github.com/ngi-nix/ngipkgs/pull/1707#discussion_r2651644145"]
 494       , invoiceLogDescription = ""
 495       }
 496   , InvoiceLog
 497       { invoiceLogDate = "2025-12-30"
 498       , invoiceLogDuration = 4
 499       , invoiceLogAction = ["development"]
 500       , invoiceLogScope = ["NGIpkgs", "BEAM"]
 501       , invoiceLogReferences = []
 502       , invoiceLogDescription = ["improve ", Doc.InlineCode "buildMix", " & ", Doc.InlineCode "mixRelease", " for packaging Elixir software"]
 503       }
 504   , InvoiceLog
 505       { invoiceLogDate = "2026-01-01"
 506       , invoiceLogDuration = 4
 507       , invoiceLogAction = ["development"]
 508       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 509       , invoiceLogReferences = []
 510       , invoiceLogDescription = "support other flavours"
 511       }
 512   , InvoiceLog
 513       { invoiceLogDate = "2026-01-03"
 514       , invoiceLogDuration = 4
 515       , invoiceLogAction = ["development"]
 516       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 517       , invoiceLogReferences = []
 518       , invoiceLogDescription = "support other flavours, and make update more resilient"
 519       }
 520   , InvoiceLog
 521       { invoiceLogDate = "2026-01-04"
 522       , invoiceLogDuration = 2
 523       , invoiceLogAction = ["development"]
 524       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 525       , invoiceLogReferences = []
 526       , invoiceLogDescription = "provide upstream with reproducers"
 527       }
 528   , InvoiceLog
 529       { invoiceLogDate = "2026-01-05"
 530       , invoiceLogDuration = 2
 531       , invoiceLogAction = ["development"]
 532       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 533       , invoiceLogReferences = []
 534       , invoiceLogDescription = "update to latest version"
 535       }
 536   , InvoiceLog
 537       { invoiceLogDate = "2026-01-07"
 538       , invoiceLogDuration = 5
 539       , invoiceLogAction = ["development"]
 540       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 541       , invoiceLogReferences = []
 542       , invoiceLogDescription = "fix updating"
 543       }
 544   , InvoiceLog
 545       { invoiceLogDate = "2026-01-07"
 546       , invoiceLogDuration = 1
 547       , invoiceLogAction = ["documentation"]
 548       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 549       , invoiceLogReferences = ["https://github.com/ngi-nix/ngipkgs/pull/1891"]
 550       , invoiceLogDescription = "address reviewer’s comment"
 551       }
 552   , InvoiceLog
 553       { invoiceLogDate = "2026-01-09"
 554       , invoiceLogDuration = 2
 555       , invoiceLogAction = ["documentation"]
 556       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 557       , invoiceLogReferences = []
 558       , invoiceLogDescription = "address reviewer’s comments"
 559       }
 560   , InvoiceLog
 561       { invoiceLogDate = "2026-01-09"
 562       , invoiceLogDuration = 2
 563       , invoiceLogAction = ["development"]
 564       , invoiceLogScope = ["NGIpkgs", "Bonfire"]
 565       , invoiceLogReferences = ["https://github.com/bonfire-networks/bonfire-app/issues/1730"]
 566       , invoiceLogDescription = "answer upstream’s questions"
 567       }
 568   , InvoiceLog
 569       { invoiceLogDate = "2026-01-11"
 570       , invoiceLogDuration = 5
 571       , invoiceLogAction = ["development"]
 572       , invoiceLogScope = ["NGIpkgs", "dnsvizor"]
 573       , invoiceLogReferences = []
 574       , invoiceLogDescription = ["replace ", Doc.InlineCode "hillingar", " to package MirageOS unikernels"]
 575       }
 576   , InvoiceLog
 577       { invoiceLogDate = "2026-01-09"
 578       , invoiceLogDuration = 2
 579       , invoiceLogAction = ["organization"]
 580       , invoiceLogScope = ["NGIpkgs"]
 581       , invoiceLogReferences = []
 582       , invoiceLogDescription = "weekly meeting"
 583       }
 584   , InvoiceLog
 585       { invoiceLogDate = "2026-01-12"
 586       , invoiceLogDuration = 5
 587       , invoiceLogAction = ["development"]
 588       , invoiceLogScope = ["NGIpkgs", "dnsvizor"]
 589       , invoiceLogReferences = ["https://github.com/ju1m/ngipkgs/commits/dnsvizor/"]
 590       , invoiceLogDescription = ["remove the need for ", Doc.InlineCode "--allow-import-from-derivation"]
 591       }
 592   , InvoiceLog
 593       { invoiceLogDate = "2026-01-12"
 594       , invoiceLogDuration = 6
 595       , invoiceLogAction = ["documentation"]
 596       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 597       , invoiceLogReferences = []
 598       , invoiceLogDescription = "render options"
 599       }
 600   , InvoiceLog
 601       { invoiceLogDate = "2026-01-13"
 602       , invoiceLogDuration = 1
 603       , invoiceLogAction = ["documentation"]
 604       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 605       , invoiceLogReferences = []
 606       , invoiceLogDescription = "update"
 607       }
 608   , InvoiceLog
 609       { invoiceLogDate = "2026-01-16"
 610       , invoiceLogDuration = 2
 611       , invoiceLogAction = ["organization"]
 612       , invoiceLogScope = ["NGIpkgs"]
 613       , invoiceLogReferences = []
 614       , invoiceLogDescription = "weekly meeting"
 615       }
 616   , InvoiceLog
 617       { invoiceLogDate = "2026-01-19"
 618       , invoiceLogDuration = 2
 619       , invoiceLogAction = ["documentation"]
 620       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 621       , invoiceLogReferences = []
 622       , invoiceLogDescription = "split into several PDF"
 623       }
 624   , InvoiceLog
 625       { invoiceLogDate = "2026-01-22"
 626       , invoiceLogDuration = 4
 627       , invoiceLogAction = ["development"]
 628       , invoiceLogScope = ["NGIpkgs", "Manuals"]
 629       , invoiceLogReferences = ["https://github.com/ngi-nix/ngipkgs/pull/2010"]
 630       , invoiceLogDescription = "address reviewers’ concerns"
 631       }
 632   , InvoiceLog
 633       { invoiceLogDate = "2026-01-23"
 634       , invoiceLogDuration = 1.5
 635       , invoiceLogAction = ["organization"]
 636       , invoiceLogScope = ["NGIpkgs"]
 637       , invoiceLogReferences = []
 638       , invoiceLogDescription = "weekly meeting"
 639       }
 640   ]
 641
 642 invoiceRateNGIpkgs =
 643   [ ["organization"] := 31.25
 644   , ["development"] := 31.25
 645   , ["documentation"] := 31.25
 646   , ["review"] := 31.25
 647   ]
 648
 649 invoices :: Invoices
 650 invoices =
 651   traceShowId
 652     [ InvoiceId
 653         { invoiceIdRecipient = Tests.Organization.nixosFoundationNGITeam
 654         , invoiceIdType = InvoiceTypeSale
 655         , invoiceIdCount = 1
 656         }
 657         := let invoiceEmittedOn = "2026-01-22"
 658            in invoice
 659                 { invoiceOrders = ["Contract n°2025-24"]
 660                 , invoiceEmittedOn
 661                 , invoicePaymentDueBefore = invoiceEmittedOn & Time.addLocalTime (31 * Time.nominalDay)
 662                 , invoiceIssuer = Tests.Organization.julmInfo
 663                 , invoiceRecipient = Tests.Organization.nixosFoundationNGITeam
 664                 , invoiceRates = invoiceRateNGIpkgs
 665                 , invoiceMentions =
 666                     [ InvoiceMentionTVANonApplicable
 667                     , InvoiceMentionIndemnitéForfaitaire
 668                     , InvoiceMentionIndemnitéTaux (12.15 :: Amount 100 (UnitName "%"))
 669                     ]
 670                 , invoiceLogs =
 671                     ngipkgsLog
 672                       & List.filter \inv ->
 673                         and $
 674                           list
 675                             [ inv & invoiceLogDate & (>= "2025-11-06")
 676                             , inv & invoiceLogDate & (<= "2025-12-22")
 677                             , inv & invoiceLogScope & (/= ["NGIpkgs", "Manuals"])
 678                             ]
 679                 }
 680     , InvoiceId
 681         { invoiceIdRecipient = Tests.Organization.nixosFoundationNGITeam
 682         , invoiceIdType = InvoiceTypeSale
 683         , invoiceIdCount = 2
 684         }
 685         := let invoiceEmittedOn = "2026-01-27"
 686            in invoice
 687                 { invoiceOrders = ["contract n°2026-03"]
 688                 , invoiceEmittedOn
 689                 , invoicePaymentDueBefore = invoiceEmittedOn & Time.addLocalTime (31 * Time.nominalDay)
 690                 , invoiceIssuer = Tests.Organization.julmInfo
 691                 , invoiceRecipient = Tests.Organization.nixosFoundationNGITeam
 692                 , invoiceRates = invoiceRateNGIpkgs
 693                 , invoiceMentions =
 694                     [ InvoiceMentionTVANonApplicable
 695                     , InvoiceMentionIndemnitéForfaitaire
 696                     , InvoiceMentionIndemnitéTaux (12.15 :: Amount 100 (UnitName "%"))
 697                     ]
 698                 , invoiceLogs =
 699                     ngipkgsLog
 700                       & List.filter \inv ->
 701                         and $
 702                           [ inv & invoiceLogDate & (>= "2025-12-23")
 703                           , inv & invoiceLogDate & (<= "2026-12-31")
 704                           , or $
 705                               [ inv & invoiceLogDate & (>= "2026-01-21")
 706                               , inv & invoiceLogScope & (/= ["NGIpkgs", "Manuals"])
 707                               ]
 708                                 & list
 709                           ]
 710                             & list
 711                 }
 712     ]
 713     & Map.fromListWith undefined