git.iko.soy/project-m36
on master help sign in
restore empty string for :showGraph head display
6cd3cb1AgentM
RelationalTransactionShow.hs+1−1
compare with master
unifiedsplit
@@ -43,7 +43,7 @@ graphAsRelation discon@(DisconnectedTransaction parentUUID _) graph@(Transaction
43 ("current", IntAtom $ if parentUUID == transactionUUID transaction then 1 else 0),
43 ("current", IntAtom $ if parentUUID == transactionUUID transaction then 1 else 0),
44 ("head", StringAtom $ case headNameForTransaction transaction graph of
44 ("head", StringAtom $ case headNameForTransaction transaction graph of
45 Just headName -> headName
45 Just headName -> headName
46− Nothing -> "_")
46+ Nothing -> "")
47 ])
47 ])
48
48
49transactionParentsRelation :: Transaction -> TransactionGraph -> Either RelationalError Relation
49transactionParentsRelation :: Transaction -> TransactionGraph -> Either RelationalError Relation