hashirama/metabrush
1
0
Fork 0
mirror of https://gitlab.com/sheaf/metabrush.git synced 2024-11-05 23:03:38 +00:00
Code Issues Actions Projects Releases Wiki Activity

fix incorrect field name in stroke hierarchy deserialisation

Browse source
This commit is contained in:
sheaf 2021-04-30 17:48:19 +02:00
parent df9b9c1f66
commit a4bf83949a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/app/MetaBrush/Document/Serialise.hs
View file

@ -715,7 +715,7 @@ decodeStrokeHierarchy uniqueSupply = do
groupContents <- JSON.Decoder.atKey "contents" ( decodeSequence $ decodeStrokeHierarchy uniqueSupply ) groupContents <- JSON.Decoder.atKey "contents" ( decodeSequence $ decodeStrokeHierarchy uniqueSupply )
pure ( StrokeGroup { groupName, groupVisible, groupContents } ) pure ( StrokeGroup { groupName, groupVisible, groupContents } )
"leaf" -> do "leaf" -> do
strokeLeaf <- JSON.Decoder.atKey "leaf" ( decodeStroke uniqueSupply ) strokeLeaf <- JSON.Decoder.atKey "stroke" ( decodeStroke uniqueSupply )
pure ( StrokeLeaf { strokeLeaf } ) pure ( StrokeLeaf { strokeLeaf } )
_ -> throwError ( JSON.ParseFailed $ "Unsupported stroke hierarchy type with tag " <> tag ) _ -> throwError ( JSON.ParseFailed $ "Unsupported stroke hierarchy type with tag " <> tag )