git.iko.soy/project-m36
on bfaecd2 help sign in
project-m36/src/lib/ProjectM36/DisconnectedTransaction.hs
21 lines 804 B history raw
1module ProjectM36.DisconnectedTransaction where
2import ProjectM36.Base
4concreteDatabaseContext :: DisconnectedTransaction -> DatabaseContext
5concreteDatabaseContext (DisconnectedTransaction _ (Schemas context _) _) = context
7schemas :: DisconnectedTransaction -> Schemas
8schemas (DisconnectedTransaction _ s _) = s
10parentId :: DisconnectedTransaction -> TransactionId
11parentId (DisconnectedTransaction pid _ _) = pid
13isDirty :: DisconnectedTransaction -> Bool
14isDirty (DisconnectedTransaction _ _ NoOperation) = False
15isDirty _ = True
17diffExpr :: DisconnectedTransaction -> DatabaseContextExpr
18diffExpr (DisconnectedTransaction _ _ expr) = expr
20freshTransaction :: TransactionId -> Schemas -> DisconnectedTransaction
21freshTransaction tid schemas' = DisconnectedTransaction tid schemas' NoOperation