diff --git a/apecs-gloss.cabal b/apecs-gloss.cabal
--- a/apecs-gloss.cabal
+++ b/apecs-gloss.cabal
@@ -1,5 +1,5 @@
 name:                apecs-gloss
-version:             0.2.2
+version:             0.2.3
 synopsis:            Simple gloss renderer for apecs
 homepage:            https://github.com/jonascarpay/apecs/apecs-gloss
 license:             BSD3
diff --git a/src/Apecs/Physics/Gloss.hs b/src/Apecs/Physics/Gloss.hs
--- a/src/Apecs/Physics/Gloss.hs
+++ b/src/Apecs/Physics/Gloss.hs
@@ -33,7 +33,7 @@
  Translate (realToFrac x) (realToFrac y) .
  Rotate (negate . radToDeg . realToFrac $ theta)
 
-drawBody :: Has w IO Shape => (Body, Transform, ShapeList) -> System w Picture
+drawBody :: Has w IO Physics => (Body, Transform, ShapeList) -> System w Picture
 drawBody (btype, transform, ShapeList shapes) = color shColor . worldTransform transform <$> foldM foldfn mempty shapes
   where foldfn pic shapeEty = do
           Shape _ convex <- get shapeEty