georgefst/garnet
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

argh, unrelated breaking change, and bad names

Browse Source
This commit is contained in:
George Thomas 2026-03-24 23:01:22 +00:00
parent aaaf02b783
commit 82c9262e91
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/GarnetRs/Raw.hs
View File

@ -42,7 +42,7 @@ do
withHsBindgen withHsBindgen
def def
{ clang = def{extraIncludeDirs = Pkg "rust/target/debug" : systemDirs} { clang = def{extraIncludeDirs = Pkg "rust/target/debug" : systemDirs}
, fieldNamingStrategy = EnableRecordDot , fieldNamingStrategy = OmitFieldPrefixes
} }
def def
$ hashInclude "garnet_rs.h" $ hashInclude "garnet_rs.h"

1
lib/GarnetRs/Wrapped.hs
View File

@ -35,6 +35,7 @@ data Shape
convertShape :: Shape -> Raw.Shape convertShape :: Shape -> Raw.Shape
convertShape = \case convertShape = \case
Circle r -> Raw.Shape Raw.Circle $ Raw.set_shape_circle_circle $ Raw.Circle_Body r Circle r -> Raw.Shape Raw.Circle $ Raw.set_shape_circle_circle $ Raw.Circle_Body r
-- hmm, unintuitive name
Rectangle w h -> Raw.Shape Raw.Rectangle $ Raw.set_shape_circle_rectangle $ Raw.Rectangle_Body w h Rectangle w h -> Raw.Shape Raw.Rectangle $ Raw.set_shape_circle_rectangle $ Raw.Rectangle_Body w h
data BTree a data BTree a