From 4874f1f39b2c87a5457a1affe6fae492c9a450a1 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, 3 Nov 2025 20:10:14 +0800
Subject: [PATCH] vanadium/xmonad: clean up language extensions

---
 nix/configurations/vanadium/home/xmonad/leanamonad.cabal     | 2 +-
 .../home/xmonad/lib/Leanamonad/Layouts/ReflectMsg.hs         | 3 ++-
 nix/configurations/vanadium/home/xmonad/xmonad.hs            | 5 ++---
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/nix/configurations/vanadium/home/xmonad/leanamonad.cabal b/nix/configurations/vanadium/home/xmonad/leanamonad.cabal
index 63d6b030..de874f27 100644
--- a/nix/configurations/vanadium/home/xmonad/leanamonad.cabal
+++ b/nix/configurations/vanadium/home/xmonad/leanamonad.cabal
@@ -18,7 +18,7 @@ common common
     , xmonad-contrib
     , containers
     , X11
-  default-language: GHC2021
+  default-language: Haskell2010
 
 library
   import: common
diff --git a/nix/configurations/vanadium/home/xmonad/lib/Leanamonad/Layouts/ReflectMsg.hs b/nix/configurations/vanadium/home/xmonad/lib/Leanamonad/Layouts/ReflectMsg.hs
index c8cbd263..f86e4632 100644
--- a/nix/configurations/vanadium/home/xmonad/lib/Leanamonad/Layouts/ReflectMsg.hs
+++ b/nix/configurations/vanadium/home/xmonad/lib/Leanamonad/Layouts/ReflectMsg.hs
@@ -1,4 +1,5 @@
-{-# LANGUAGE NegativeLiterals #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
 
 module Leanamonad.Layouts.ReflectMsg where
 
diff --git a/nix/configurations/vanadium/home/xmonad/xmonad.hs b/nix/configurations/vanadium/home/xmonad/xmonad.hs
index 6576a161..301d0afc 100644
--- a/nix/configurations/vanadium/home/xmonad/xmonad.hs
+++ b/nix/configurations/vanadium/home/xmonad/xmonad.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE NegativeLiterals  #-}
-{-# LANGUAGE LambdaCase        #-}
 
 import XMonad
 import XMonad.Actions.Submap
@@ -16,14 +15,14 @@ import XMonad.Layout.Reflect
 import XMonad.Layout.Renamed
 import XMonad.Layout.ResizableTile
 import XMonad.Layout.Spacing
-import XMonad.StackSet qualified as W
+import qualified XMonad.StackSet as W
 import XMonad.Util.EZConfig
 import XMonad.Util.Hacks
 import XMonad.Util.NamedScratchpad
 import XMonad.Util.SpawnOnce
 import XMonad.Layout.Magnifier
 
-import Data.Map.Strict              qualified as M
+import qualified Data.Map.Strict as M
 import System.Posix
 import Graphics.X11.ExtraTypes.XF86