diff --git a/fltkhs.cabal b/fltkhs.cabal
--- a/fltkhs.cabal
+++ b/fltkhs.cabal
@@ -1,5 +1,5 @@
 name : fltkhs
-version : 0.5.3.1
+version : 0.5.3.2
 synopsis : FLTK bindings
 description: Low level bindings for the FLTK GUI toolkit. For installation and quick start instruction please scroll all the way down to the README.
 license : MIT
diff --git a/src/Graphics/UI/FLTK/LowLevel/Widget.chs b/src/Graphics/UI/FLTK/LowLevel/Widget.chs
--- a/src/Graphics/UI/FLTK/LowLevel/Widget.chs
+++ b/src/Graphics/UI/FLTK/LowLevel/Widget.chs
@@ -416,7 +416,7 @@
 instance (impl ~ ( [Damage] ->  IO ())) => Op (SetDamage ()) Widget orig impl where
   runOp _ _ widget damages = withRef widget $ \widgetPtr -> damageWithText' widgetPtr (fromIntegral (combine damages))
 {# fun Fl_Widget_damage_inside_widget as damageInsideWidget' { id `Ptr ()',`Word8',`Int',`Int',`Int',`Int' } -> `()' supressWarningAboutRes #}
-instance (impl ~ ( [Damage] -> Rectangle ->  IO ())) => Op (SetDamageInside()) Widget orig impl where
+instance (impl ~ ( [Damage] -> Rectangle ->  IO ())) => Op (SetDamageInside ()) Widget orig impl where
   runOp _ _ widget damages rectangle = withRef widget $ \widgetPtr -> do
     let (x_pos,y_pos,w_pos,h_pos) = fromRectangle rectangle
     damageInsideWidget' widgetPtr (fromIntegral (combine damages)) x_pos y_pos w_pos h_pos
@@ -481,7 +481,6 @@
 
 -- $widgetfunctions
 -- @
---
 -- activate :: 'Ref' 'Widget' -> 'IO' ()
 --
 -- active :: 'Ref' 'Widget' -> 'IO' ('Bool')
@@ -496,7 +495,7 @@
 --
 -- clearDamage :: 'Ref' 'Widget' -> 'IO' ()
 --
--- clearDamageWithBitmask :: 'Ref' 'Widget' -> 'Word8' -> 'IO' ()
+-- clearDamageExcept :: 'Ref' 'Widget' -> ['Damage'] -> 'IO' ()
 --
 -- clearOutput :: 'Ref' 'Widget' -> 'IO' ()
 --
@@ -532,11 +531,7 @@
 --
 -- getColor :: 'Ref' 'Widget' -> 'IO' ('Color')
 --
--- getDamage :: 'Ref' 'Widget' -> 'IO' ('Word8')
---
--- getDamageInsideWidget :: 'Ref' 'Widget' -> 'Word8' -> 'Rectangle' -> 'IO' ()
---
--- getDamageWithText :: 'Ref' 'Widget' -> 'Word8' -> 'IO' ()
+-- getDamage :: 'Ref' 'Widget' -> 'IO' (['Damage')]
 --
 -- getDeimage :: 'Ref' 'Widget' -> 'IO' ('Ref' 'Image')
 --
@@ -586,7 +581,7 @@
 --
 -- getY :: 'Ref' 'Widget' -> 'IO' ('Int')
 --
--- handle :: 'Ref' 'Widget' -> ('Event' -> 'IO' ('Either' 'UnknownEvent' ()))
+-- handle :: 'Ref' 'Widget' -> 'Event' -> 'IO' ('Either' 'UnknownEvent' ())
 --
 -- hasCallback :: 'Ref' 'Widget' -> 'IO' ('Bool')
 --
@@ -621,6 +616,10 @@
 -- setColor :: 'Ref' 'Widget' -> 'Color' -> 'IO' ()
 --
 -- setColorWithBgSel :: 'Ref' 'Widget' -> 'Color' -> 'Color' -> 'IO' ()
+--
+-- setDamage :: 'Ref' 'Widget' -> ['Damage'] -> 'IO' ()
+--
+-- setDamageInside :: 'Ref' 'Widget' -> ['Damage'] -> 'Rectangle' -> 'IO' ()
 --
 -- setDeimage:: ('Parent' a 'Image') => 'Ref' 'Widget' -> 'Maybe'( 'Ref' a ) -> 'IO' ()
 --