restore empty string for :showGraph head display
commit6cd3cb13ff5b20b7b1d7717c59a6f403ba945f42
authorAgentM <agentm@themactionfaction.com>
dateFri 17 Apr 2015, 23:04 (12 years ago)
parent6b69c62
RelationalTransactionShow.hs+1−1
@@ -43,7 +43,7 @@ graphAsRelation discon@(DisconnectedTransaction parentUUID _) graph@(Transaction
4343 ("current", IntAtom $ if parentUUID == transactionUUID transaction then 1 else 0),
4444 ("head", StringAtom $ case headNameForTransaction transaction graph of
4545 Just headName -> headName
46− Nothing -> "_")
46+ Nothing -> "")
4747 ])
4848
4949transactionParentsRelation :: Transaction -> TransactionGraph -> Either RelationalError Relation