diff --git a/lib/GarnetRs/Raw.hs b/lib/GarnetRs/Raw.hs
index 98b15ad..4e85162 100644
--- a/lib/GarnetRs/Raw.hs
+++ b/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"
diff --git a/lib/GarnetRs/Wrapped.hs b/lib/GarnetRs/Wrapped.hs
index 51d9255..d6f08d6 100644
--- a/lib/GarnetRs/Wrapped.hs
+++ b/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