diff --git a/XMonad/Layout/SimpleFloat.hs b/XMonad/Layout/SimpleFloat.hs
index 4aa8e4f7..82564442 100644
--- a/XMonad/Layout/SimpleFloat.hs
+++ b/XMonad/Layout/SimpleFloat.hs
@@ -25,6 +25,7 @@ module XMonad.Layout.SimpleFloat
 
 import XMonad
 import qualified XMonad.StackSet as S
+import XMonad.Actions.MouseResize
 import XMonad.Layout.Decoration
 import XMonad.Layout.SimpleDecoration
 import XMonad.Layout.WindowArranger
@@ -49,15 +50,15 @@ import XMonad.Layout.WindowArranger
 --
 -- This version is decorated with the 'SimpleDecoration' style.
 simpleFloat :: ModifiedLayout (Decoration SimpleDecoration DefaultShrinker)
-	       (ModifiedLayout WindowArranger SimpleFloat) a
-simpleFloat = decoration shrinkText defaultTheme (Simple False) (windowArrangeAll $ SF 20)
+	       (ModifiedLayout MouseResize (ModifiedLayout WindowArranger SimpleFloat)) a
+simpleFloat = decoration shrinkText defaultTheme (Simple False) (mouseResize $ windowArrangeAll $ SF 20)
 
 -- | Same as 'simpleFloat', but with the possibility of setting a
 -- custom shrinker and a custom theme.
 simpleFloat' :: Shrinker s => s -> Theme ->
                ModifiedLayout (Decoration SimpleDecoration s)
-	      (ModifiedLayout WindowArranger SimpleFloat) a
-simpleFloat' s c = decoration s c (Simple False) (windowArrangeAll $ SF (decoHeight c))
+	       (ModifiedLayout MouseResize (ModifiedLayout WindowArranger SimpleFloat)) a
+simpleFloat' s c = decoration s c (Simple False) (mouseResize $ windowArrangeAll $ SF (decoHeight c))
 
 data SimpleFloat a = SF Dimension deriving (Show, Read)
 instance LayoutClass SimpleFloat Window where