primrose/.files
1
0
Fork 0
mirror of https://codeberg.org/leana8959/.files.git synced 2025-12-06 06:39:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

vanadium/xmonad: run hlint

Browse source
This commit is contained in:
Primrose 2025-11-17 16:38:06 +08:00
parent 1409a5e064
commit 06c9fe9f1e
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
nix/configurations/vanadium/home/xmonad/lib/XMonad/Layout/ResizableTile/FixDescription.hs
View file

@ -1,4 +1,3 @@
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-} {-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
module XMonad.Layout.ResizableTile.FixDescription module XMonad.Layout.ResizableTile.FixDescription
@ -15,12 +14,10 @@ newtype RTFixDescription a = RTFixDescription { unwrapRT :: ResizableTall a }
instance LayoutClass RTFixDescription a where instance LayoutClass RTFixDescription a where
runLayout (W.Workspace t l s) = runLayout (W.Workspace t l s) =
let ws' = W.Workspace t (unwrapRT l) s let ws' = W.Workspace t (unwrapRT l) s
in fmap (fmap (fmap RTFixDescription)) in (fmap . fmap . fmap) RTFixDescription . runLayout ws'
. runLayout ws'
handleMessage (RTFixDescription l) m = handleMessage (RTFixDescription l) =
fmap (fmap RTFixDescription) (fmap . fmap) RTFixDescription . handleMessage l
$ handleMessage l m
description (RTFixDescription l) = description (RTFixDescription l) =
description l <> " " <> show (_nmaster l) description l <> " " <> show (_nmaster l)