git.iko.soy/project-m36
on cfa7253 help sign in
project-m36/src/lib/ProjectM36/TransactionDiffs.hs
10 lines 274 B history raw
1module ProjectM36.TransactionDiffs where
2import ProjectM36.Base
3import Data.List.NonEmpty
4import Data.UUID as U
6root :: TransactionDiffs
7root = single U.nil NoOperation
9single :: TransactionId -> TransactionDiffExpr -> TransactionDiffs
10single tid expr = (tid, expr) :| []