Hello, how can I wrap a Layout data type to redefine its type class method ? context: https://github.com/xmonad/xmonad-contrib/issues/954 I tried to do the following but I can't call "inner" with the "doLayout" due to a type mismatch. newtype ResizableTall' a = ResizableTall' (ResizableTall a) instance LayoutClass ResizableTall' a where doLayout (ResizableTall' inner) r = doLayout inner r handleMessage (ResizableTall' inner) m = handleMessage inner m description (ResizableTall' inner@(ResizableTall {_nmaster})) = description inner <> " " <> show _nmaster Are there other way to wrap this or am I going on a wrong path? Thanks :)