jsonWriteAttr :: ToJSON i => ReadWriteAttr x String o -> ReadWriteAttr x i o
jsonWriteAttr = bimapAttr toJSONStr id
jsonWriteAttr :: ToJSON i => ReadWriteAttr x String o -> ReadWriteAttr x i o
jsonWriteAttr = bimapAttr toJSONStr id
jsonWriteAttr = bimapAttr toJSONStr id