1 files changed, 7 insertions, 5 deletions
diff --git a/src/Wetterhorn/Core/W.hs b/src/Wetterhorn/Core/W.hs
index c708961..dfa0753 100644
--- a/src/Wetterhorn/Core/W.hs
+++ b/src/Wetterhorn/Core/W.hs
@@ -10,16 +10,16 @@ import Control.Monad.Trans.Maybe
 import Data.Data (Typeable, cast)
 import Data.Kind (Constraint, Type)
 import Data.Set (Set)
-import qualified Data.Set as Set
+import Data.Set qualified as Set
 import Foreign (Ptr, StablePtr, intPtrToPtr, ptrToIntPtr)
 import Text.Read
 import Wetterhorn.Core.KeyEvent
 import Wetterhorn.Core.SurfaceEvent
 import Wetterhorn.Foreign.ForeignInterface (ForeignInterface)
-import qualified Wetterhorn.Foreign.ForeignInterface as ForeignInterface
+import Wetterhorn.Foreign.ForeignInterface qualified as ForeignInterface
 import Wetterhorn.Foreign.WlRoots (Surface, WlrSeat)
 import Wetterhorn.StackSet hiding (layout)
-import qualified Wetterhorn.StackSet as StackSet
+import Wetterhorn.StackSet qualified as StackSet
 
 data RationalRect = RationalRect Rational Rational Rational Rational
 
@@ -136,7 +136,8 @@ defaultConfig :: Config ()
 defaultConfig =
   Config
     { hooks = defaultHooks,
-      layout = ()
+      layout = (),
+      resetHook = return ()
     }
 
 data Hooks = Hooks
@@ -146,7 +147,8 @@ data Hooks = Hooks
 
 data Config l = Config
   { layout :: l,
-    hooks :: Hooks
+    hooks :: Hooks,
+    resetHook :: W ()
   }
 
 data State = State