From 06c9fe9f1e1c600f3a5a8fa1d92dee67d5953145 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?L=C3=A9ana=20=E6=B1=9F?= <leana.jiang+git@icloud.com>
Date: Mon, 17 Nov 2025 16:38:06 +0800
Subject: [PATCH] vanadium/xmonad: run hlint

---
 .../lib/XMonad/Layout/ResizableTile/FixDescription.hs    | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/nix/configurations/vanadium/home/xmonad/lib/XMonad/Layout/ResizableTile/FixDescription.hs b/nix/configurations/vanadium/home/xmonad/lib/XMonad/Layout/ResizableTile/FixDescription.hs
index 18a813cd..19153c17 100644
--- a/nix/configurations/vanadium/home/xmonad/lib/XMonad/Layout/ResizableTile/FixDescription.hs
+++ b/nix/configurations/vanadium/home/xmonad/lib/XMonad/Layout/ResizableTile/FixDescription.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
 
 module XMonad.Layout.ResizableTile.FixDescription
@@ -15,12 +14,10 @@ newtype RTFixDescription a = RTFixDescription { unwrapRT :: ResizableTall a }
 instance LayoutClass RTFixDescription a where
   runLayout (W.Workspace t l s) =
     let ws' = W.Workspace t (unwrapRT l) s
-    in fmap (fmap (fmap RTFixDescription))
-       . runLayout ws'
+    in  (fmap . fmap . fmap) RTFixDescription . runLayout ws'
 
-  handleMessage (RTFixDescription l) m =
-    fmap (fmap RTFixDescription)
-    $ handleMessage l m
+  handleMessage (RTFixDescription l) =
+    (fmap . fmap) RTFixDescription . handleMessage l
 
   description (RTFixDescription l) =
     description l <> " " <> show (_nmaster l)