argh, unrelated breaking change, and bad names

lib/GarnetRs/Raw.hs

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

lib/GarnetRs/Wrapped.hs

@@ -35,6 +35,7 @@ data Shape
 convertShape :: Shape -> Raw.Shape
 convertShape = \case
     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
 
 data BTree a