@@ -219,7 +219,7 @@ graphAsRelation (DisconnectedTransaction parentUUID _) graph@(TransactionGraph _
219219 where
220220 attrs = A.attributesFromList [Attribute "id" StringAtomType,
221221 Attribute "parents" (RelationAtomType parentAttributes),
222− Attribute "current" IntAtomType,
222+ Attribute "current" BoolAtomType,
223223 Attribute "head" StringAtomType
224224 ]
225225 parentAttributes = A.attributesFromList [Attribute "id" StringAtomType]
@@ -227,7 +227,7 @@ graphAsRelation (DisconnectedTransaction parentUUID _) graph@(TransactionGraph _
227227 Left err -> Left err
228228 Right parentTransRel -> Right [StringAtom $ T.pack $ show (transactionUUID transaction),
229229 RelationAtom parentTransRel,
230− IntAtom $ if parentUUID == transactionUUID transaction then 1 else 0,
230+ BoolAtom $ parentUUID == transactionUUID transaction,
231231 StringAtom $ case headNameForTransaction transaction graph of
232232 Just headName -> headName
233233 Nothing -> ""