/home/justin/Haskell/loop/src/Dodge/Render/ShapePicture.hs:61:19: warning: [-Wunused-matches]
    Defined but not used: ‘cfig’
   |
61 | drawDIMouseOver w cfig = fromMaybe mempty $ do
   |                   ^^^^