Build profile: -w ghc-9.4.7 -O1 In order, the following will be built (use -v for more details): - xmonad-contrib-0.17.1 (lib) (first run) Preprocessing library for xmonad-contrib-0.17.1.. Building library for xmonad-contrib-0.17.1.. [ 44 of 308] Compiling XMonad.Layout.LayoutModifier ( XMonad/Layout/LayoutModifier.hs, /data/builds/head.hackage/xmonad-contrib-0.17.1/dist-newstyle/build/x86_64-linux/ghc-9.4.7/xmonad-contrib-0.17.1/build/XMonad/Layout/LayoutModifier.o, /data/builds/head.hackage/xmonad-contrib-0.17.1/dist-newstyle/build/x86_64-linux/ghc-9.4.7/xmonad-contrib-0.17.1/build/XMonad/Layout/LayoutModifier.dyn_o ) [Source file changed] ==================== Final STG: ==================== XMonad.Layout.LayoutModifier.$tc'ModifiedLayout3 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "'ModifiedLayout"#; XMonad.Layout.LayoutModifier.$tcLayoutModifier3 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "LayoutModifier"#; XMonad.Layout.LayoutModifier.$trModule2 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "XMonad.Layout.LayoutModifier"#; XMonad.Layout.LayoutModifier.$trModule4 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "xmonad-contrib-0.17.1-inplace"#; lvl_r79l :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = " "#; XMonad.Layout.LayoutModifier.$tcModifiedLayout3 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "ModifiedLayout"#; XMonad.Layout.LayoutModifier.$fShowModifiedLayout1 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "ModifiedLayout "#; XMonad.Layout.LayoutModifier.$p1LayoutModifier [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => GHC.Show.Show (m a) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7bX] case v_s7bX of { XMonad.Layout.LayoutModifier.C:LayoutModifier v_s7bZ [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7bZ; }; XMonad.Layout.LayoutModifier.$p2LayoutModifier [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => GHC.Read.Read (m a) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7cc] case v_s7cc of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] v_s7cf [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7cf; }; XMonad.Layout.LayoutModifier.modifyLayout [InlPrag=[~]] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7cr] case v_s7cr of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] v_s7cv [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7cv; }; XMonad.Layout.LayoutModifier.modifyLayoutWithUpdate [InlPrag=[~]] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X (([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a)), GHC.Maybe.Maybe (m a)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7cG] case v_s7cG of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7cL [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7cL; }; XMonad.Layout.LayoutModifier.handleMess [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (m a)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7cV] case v_s7cV of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7d1 [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7d1; }; XMonad.Layout.LayoutModifier.handleMessOrMaybeModifyIt [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (Data.Either.Either (m a) XMonad.Core.SomeMessage)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7da] case v_s7da of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7dh [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7dh; }; XMonad.Layout.LayoutModifier.pureMess [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> GHC.Maybe.Maybe (m a) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7dp] case v_s7dp of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7dx [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7dx; }; XMonad.Layout.LayoutModifier.redoLayout [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7dE] case v_s7dE of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7dN [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7dN; }; XMonad.Layout.LayoutModifier.pureModifier [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7dT] case v_s7dT of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7e3 [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7e3; }; XMonad.Layout.LayoutModifier.hook [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.X () [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7e8] case v_s7e8 of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7ej [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7ej; }; XMonad.Layout.LayoutModifier.unhook [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.X () [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7en] case v_s7en of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7ez [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] -> v_s7ez; }; XMonad.Layout.LayoutModifier.modifierDescription [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> GHC.Base.String [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7eC] case v_s7eC of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7eP [Occ=Once1] _ [Occ=Dead] -> v_s7eP; }; XMonad.Layout.LayoutModifier.modifyDescription [InlPrag=[~]] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> l a -> GHC.Base.String [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7eR] case v_s7eR of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7f5 [Occ=Once1] -> v_s7f5; }; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cdescription :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> GHC.Base.String [GblId, Arity=4, Str=<1P(A,A,A,A,A,A,A,A,A,A,A,A,1C1(C1(C1(L))))><1!P(L,L)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7f6 $dLayoutClass_s7f7 $dTypeable_s7f8 ds_s7f9] case ds_s7f9 of { XMonad.Layout.LayoutModifier.ModifiedLayout m1_s7fb [Occ=Once1] l1_s7fc [Occ=Once1] -> XMonad.Layout.LayoutModifier.modifyDescription $dLayoutModifier_s7f6 $dLayoutClass_s7f7 m1_s7fb l1_s7fc; }; XMonad.Layout.LayoutModifier.$w$chandleMessage [InlPrag=[2]] :: forall {m :: * -> *} {a} {l :: * -> *}. (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> l a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId, Arity=5, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7fd $dLayoutClass_s7fe ww_s7ff ww1_s7fg mess_s7fh] let { lvl5_s7fi [Occ=OnceL2, Dmd=LCL(C1(C1(L)))] :: XMonad.Core.X (GHC.Maybe.Maybe (l_s76h a_s76g)) [LclId] = {$dLayoutClass_s7fe, ww1_s7fg, mess_s7fh} \u [] XMonad.Core.handleMessage $dLayoutClass_s7fe ww1_s7fg mess_s7fh; } in let { m1_s7fj [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,1P(SL,L)))))] :: XMonad.Core.X (GHC.Maybe.Maybe (Data.Either.Either (m_s76f a_s76g) XMonad.Core.SomeMessage)) [LclId] = {$dLayoutModifier_s7fd, ww_s7ff, mess_s7fh} \u [] XMonad.Layout.LayoutModifier.handleMessOrMaybeModifyIt $dLayoutModifier_s7fd ww_s7ff mess_s7fh; } in let { sat_s7gg [Occ=Once1] :: XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g)) [LclId] = {$dLayoutClass_s7fe, ww1_s7fg, lvl5_s7fi, ww_s7ff, m1_s7fj} \r [r1_s7fk] let { m2_s7fl [Occ=OnceL1, Dmd=LCL(C1(P(L,1P(SL,L))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (GHC.Maybe.Maybe (Data.Either.Either (m_s76f a_s76g) XMonad.Core.SomeMessage)) [LclId] = {r1_s7fk, m1_s7fj} \u [] m1_s7fj r1_s7fk; } in let { sat_s7gf [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g), XMonad.Core.XState) #) [LclId] = {$dLayoutClass_s7fe, ww1_s7fg, r1_s7fk, lvl5_s7fi, ww_s7ff, m2_s7fl} \r [s1_s7fm void_0E] case m2_s7fl s1_s7fm GHC.Prim.void# of { Solo# ipv1_s7fq [Occ=Once1!] -> case ipv1_s7fq of { (,) a1_s7fs s'_s7ft [Occ=Once3] -> let-no-escape { $j_s7fu [Occ=Once3!T[2], Dmd=MCM(C1(L))] :: GHC.Prim.State# GHC.Prim.RealWorld -> (GHC.Maybe.Maybe (l_s76h a_s76g), XMonad.Core.XState) -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g), XMonad.Core.XState) #) [LclId[JoinId(2)(Nothing)], Arity=2, Str=, Unf=OtherCon []] = {ww1_s7fg, ww_s7ff, a1_s7fs} \r [void_XF ipv3_s7fw] let { sat_s7fZ [Occ=Once1] :: XMonad.Core.XState [LclId] = {ipv3_s7fw} \u [] case ipv3_s7fw of { (,) _ [Occ=Dead] s'1_s7fY [Occ=Once1] -> s'1_s7fY; }; } in let { sat_s7fV [Occ=Once1] :: GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g) [LclId] = {ww1_s7fg, ipv3_s7fw, ww_s7ff, a1_s7fs} \u [] case a1_s7fs of { GHC.Maybe.Nothing -> case ipv3_s7fw of { (,) a2_s7fz [Occ=Once1!] _ [Occ=Dead] -> case a2_s7fz of { GHC.Maybe.Nothing -> GHC.Maybe.Nothing []; GHC.Maybe.Just a3_s7fC [Occ=Once1] -> let { sat_s7fD [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [ww_s7ff a3_s7fC]; } in GHC.Maybe.Just [sat_s7fD]; }; }; GHC.Maybe.Just ds_s7fE [Occ=Once1!] -> case ds_s7fE of { Data.Either.Left m'_s7fG [Occ=Once1] -> let { sat_s7fM [Occ=Once1] :: l_s76h a_s76g [LclId] = {ww1_s7fg, ipv3_s7fw} \u [] case ipv3_s7fw of { (,) a2_s7fI [Occ=Once1!] _ [Occ=Dead] -> case a2_s7fI of { GHC.Maybe.Nothing -> ww1_s7fg; GHC.Maybe.Just v_s7fL [Occ=Once1] -> v_s7fL; }; }; } in let { sat_s7fN [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [m'_s7fG sat_s7fM]; } in GHC.Maybe.Just [sat_s7fN]; Data.Either.Right _ [Occ=Dead] -> case ipv3_s7fw of { (,) a2_s7fQ [Occ=Once1!] _ [Occ=Dead] -> case a2_s7fQ of { GHC.Maybe.Nothing -> GHC.Maybe.Nothing []; GHC.Maybe.Just a3_s7fT [Occ=Once1] -> let { sat_s7fU [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [ww_s7ff a3_s7fT]; } in GHC.Maybe.Just [sat_s7fU]; }; }; }; }; } in let { sat_s7g0 [Occ=Once1] :: (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g), XMonad.Core.XState) [LclId] = CCCS (,)! [sat_s7fV sat_s7fZ]; } in Solo# [sat_s7g0]; } in case a1_s7fs of { GHC.Maybe.Nothing -> case lvl5_s7fi r1_s7fk s'_s7ft GHC.Prim.void# of { Solo# ipv3_s7g4 [Occ=Once1] -> $j_s7fu GHC.Prim.void# ipv3_s7g4; }; GHC.Maybe.Just ds_s7g5 [Occ=Once1!] -> case ds_s7g5 of { Data.Either.Left _ [Occ=Dead] -> case lvl5_s7fi r1_s7fk s'_s7ft GHC.Prim.void# of { Solo# ipv4_s7ga [Occ=Once1] -> $j_s7fu GHC.Prim.void# ipv4_s7ga; }; Data.Either.Right mess'_s7gb [Occ=Once1] -> case XMonad.Core.handleMessage $dLayoutClass_s7fe ww1_s7fg mess'_s7gb r1_s7fk s'_s7ft GHC.Prim.void# of { Solo# ipv3_s7ge [Occ=Once1] -> $j_s7fu GHC.Prim.void# ipv3_s7ge; }; }; }; }; }; } in sat_s7gf; } in sat_s7gg; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$chandleMessage [InlPrag=[2]] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId, Arity=5, Str=<1!P(L,L)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7gh $dLayoutClass_s7gi $dTypeable_s7gj ds_s7gk mess_s7gl] case ds_s7gk of { XMonad.Layout.LayoutModifier.ModifiedLayout ww_s7gn [Occ=Once1] ww1_s7go [Occ=Once1] -> XMonad.Layout.LayoutModifier.$w$chandleMessage $dLayoutModifier_s7gh $dLayoutClass_s7gi ww_s7gn ww1_s7go mess_s7gl; }; XMonad.Layout.LayoutModifier.$w$crunLayout [InlPrag=[2]] :: forall {m :: * -> *} {a} {l :: * -> *}. (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => XMonad.Core.WorkspaceId -> m a -> l a -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId[StrictWorker([~, ~, !])], Arity=7, Str=<1L>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7gp $dLayoutClass_s7gq ww_s7gr ww1_s7gs ww2_s7gt ww3_s7gu r_s7gv] case ww_s7gr of ww4_s7gw [Occ=OnceL1] { __DEFAULT -> let { m1_s7gx [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,1P(1P(1P(L,ML),L),L)))))] :: XMonad.Core.X (([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_s76w a_s76v)), GHC.Maybe.Maybe (m_s76u a_s76v)) [LclId] = {$dLayoutModifier_s7gp, $dLayoutClass_s7gq, ww1_s7gs, r_s7gv, ww4_s7gw, ww2_s7gt, ww3_s7gu} \u [] let { sat_s7gy [Occ=Once1] :: XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l_s76w a_s76v) a_s76v [LclId] = CCCS XMonad.StackSet.Workspace! [ww4_s7gw ww2_s7gt ww3_s7gu]; } in XMonad.Layout.LayoutModifier.modifyLayoutWithUpdate $dLayoutModifier_s7gp $dLayoutClass_s7gq ww1_s7gs sat_s7gy r_s7gv; } in let { sat_s7hk [Occ=Once1] :: XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO ([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v)) [LclId] = {ww2_s7gt, ww1_s7gs, $dLayoutModifier_s7gp, r_s7gv, ww3_s7gu, m1_s7gx} \r [r1_s7gz] let { m2_s7gA [Occ=OnceL1, Dmd=LCL(C1(P(L,1P(1P(1P(L,ML),L),L))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_s76w a_s76v)), GHC.Maybe.Maybe (m_s76u a_s76v)) [LclId] = {r1_s7gz, m1_s7gx} \u [] m1_s7gx r1_s7gz; } in let { sat_s7hj [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v)), XMonad.Core.XState) #) [LclId] = {ww2_s7gt, ww1_s7gs, $dLayoutModifier_s7gp, r_s7gv, ww3_s7gu, r1_s7gz, m2_s7gA} \r [s1_s7gB void_0E] case m2_s7gA s1_s7gB GHC.Prim.void# of { Solo# ipv1_s7gF [Occ=Once1!] -> case ipv1_s7gF of { (,) a1_s7gH [Occ=Once1!] s'_s7gI [Occ=Once1] -> case a1_s7gH of { (,) ds_s7gK [Occ=Once1!] mm'_s7gL -> case ds_s7gK of { (,) ws_s7gN [Occ=Once1] ml'_s7gO [Occ=Once3!] -> let { sat_s7gR [Occ=Once1] :: m_s76u a_s76v [LclId] = {ww1_s7gs, mm'_s7gL} \u [] case mm'_s7gL of { GHC.Maybe.Nothing -> ww1_s7gs; GHC.Maybe.Just v_s7gQ [Occ=Once1] -> v_s7gQ; }; } in case XMonad.Layout.LayoutModifier.redoLayout $dLayoutModifier_s7gp sat_s7gR r_s7gv ww3_s7gu ws_s7gN r1_s7gz s'_s7gI GHC.Prim.void# of { Solo# ipv3_s7gU [Occ=Once1!] -> case ipv3_s7gU of { (,) a2_s7gW [Occ=Once1!] s'1_s7gX [Occ=Once1] -> case a2_s7gW of { (,) ws'_s7gZ [Occ=Once1] mm''_s7h0 [Occ=Once1!] -> let { sat_s7hg [Occ=Once1] :: GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v) [LclId] = {ww2_s7gt, ml'_s7gO, ww1_s7gs, mm'_s7gL, mm''_s7h0} \u [] case mm''_s7h0 of { GHC.Maybe.Nothing -> case mm'_s7gL of { GHC.Maybe.Nothing -> case ml'_s7gO of { GHC.Maybe.Nothing -> GHC.Maybe.Nothing []; GHC.Maybe.Just a3_s7h4 [Occ=Once1] -> let { sat_s7h5 [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [ww1_s7gs a3_s7h4]; } in GHC.Maybe.Just [sat_s7h5]; }; GHC.Maybe.Just m'_s7h6 [Occ=Once1] -> let { sat_s7h9 [Occ=Once1] :: l_s76w a_s76v [LclId] = {ww2_s7gt, ml'_s7gO} \u [] case ml'_s7gO of { GHC.Maybe.Nothing -> ww2_s7gt; GHC.Maybe.Just v_s7h8 [Occ=Once1] -> v_s7h8; }; } in let { sat_s7ha [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [m'_s7h6 sat_s7h9]; } in GHC.Maybe.Just [sat_s7ha]; }; GHC.Maybe.Just ipv4_s7hb [Occ=Once1] -> let { sat_s7he [Occ=Once1] :: l_s76w a_s76v [LclId] = {ww2_s7gt, ml'_s7gO} \u [] case ml'_s7gO of { GHC.Maybe.Nothing -> ww2_s7gt; GHC.Maybe.Just v_s7hd [Occ=Once1] -> v_s7hd; }; } in let { sat_s7hf [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [ipv4_s7hb sat_s7he]; } in GHC.Maybe.Just [sat_s7hf]; }; } in let { sat_s7hh [Occ=Once1] :: ([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v)) [LclId] = CCCS (,)! [ws'_s7gZ sat_s7hg]; } in let { sat_s7hi [Occ=Once1] :: (([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v)), XMonad.Core.XState) [LclId] = CCCS (,)! [sat_s7hh s'1_s7gX]; } in Solo# [sat_s7hi]; }; }; }; }; }; }; }; } in sat_s7hj; } in sat_s7hk; }; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$crunLayout [InlPrag=[2]] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId, Arity=5, Str=<1!P(1L,1!P(L,L),L)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7hl $dLayoutClass_s7hm $dTypeable_s7hn ds_s7ho r_s7hp] case ds_s7ho of { XMonad.StackSet.Workspace ww_s7hr [Occ=Once1] ww1_s7hs [Occ=Once1!] ww2_s7ht [Occ=Once1] -> case ww1_s7hs of { XMonad.Layout.LayoutModifier.ModifiedLayout ww3_s7hv [Occ=Once1] ww4_s7hw [Occ=Once1] -> XMonad.Layout.LayoutModifier.$w$crunLayout $dLayoutModifier_s7hl $dLayoutClass_s7hm ww_s7hr ww3_s7hv ww4_s7hw ww2_s7ht r_s7hp; }; }; XMonad.Layout.LayoutModifier.$fShowModifiedLayout2 :: GHC.Types.Int [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.I#! [11#]; XMonad.Layout.LayoutModifier.$w$cshowsPrec [InlPrag=[2]] :: forall {m :: * -> *} {l :: * -> *} {a}. (GHC.Show.Show (m a), GHC.Show.Show (l a)) => GHC.Prim.Int# -> m a -> l a -> GHC.Show.ShowS [GblId, Arity=5, Str=, Unf=OtherCon []] = {} \r [$dShow_s7hx $dShow1_s7hy ww_s7hz ww1_s7hA ww2_s7hB] let { f_s7hC [Occ=OnceL2!] :: GHC.Base.String -> GHC.Base.String [LclId] = {$dShow_s7hx, ww1_s7hA} \u [] GHC.Show.showsPrec $dShow_s7hx XMonad.Layout.LayoutModifier.$fShowModifiedLayout2 ww1_s7hA; } in let { g_s7hD [Occ=OnceL2!] :: GHC.Base.String -> GHC.Base.String [LclId] = {$dShow1_s7hy, ww2_s7hB} \u [] GHC.Show.showsPrec $dShow1_s7hy XMonad.Layout.LayoutModifier.$fShowModifiedLayout2 ww2_s7hB; } in case >=# [ww_s7hz 11#] of { __DEFAULT -> let { sat_s7hJ [Occ=Once1T[0]] :: GHC.Base.String -> [GHC.Types.Char] [LclId] = {f_s7hC, g_s7hD} \r [x_s7hF] let { sat_s7hI [Occ=Once1, Dmd=ML] :: GHC.Base.String [LclId] = {f_s7hC, x_s7hF, g_s7hD} \s [] let { sat_s7hG [Occ=Once1] :: GHC.Base.String [LclId] = {x_s7hF, g_s7hD} \u [] g_s7hD x_s7hF; } in let { sat_s7hH [Occ=Once1] :: [GHC.Types.Char] [LclId] = CCCS :! [GHC.Show.showSpace1 sat_s7hG]; } in f_s7hC sat_s7hH; } in GHC.CString.unpackAppendCString# XMonad.Layout.LayoutModifier.$fShowModifiedLayout1 sat_s7hI; } in sat_s7hJ; 1# -> let { sat_s7hQ [Occ=Once1T[0]] :: GHC.Base.String -> [GHC.Types.Char] [LclId] = {g_s7hD, f_s7hC} \r [x_s7hK] let { sat_s7hP [Occ=Once1] :: [GHC.Types.Char] [LclId] = {g_s7hD, x_s7hK, f_s7hC} \u [] let { sat_s7hO [Occ=Once1, Dmd=ML] :: GHC.Base.String [LclId] = {g_s7hD, x_s7hK, f_s7hC} \s [] let { sat_s7hM [Occ=Once1] :: GHC.Base.String [LclId] = {g_s7hD, x_s7hK} \u [] let { sat_s7hL [Occ=Once1] :: [GHC.Types.Char] [LclId] = CCCS :! [GHC.Show.$fShow(,)1 x_s7hK]; } in g_s7hD sat_s7hL; } in let { sat_s7hN [Occ=Once1] :: [GHC.Types.Char] [LclId] = CCCS :! [GHC.Show.showSpace1 sat_s7hM]; } in f_s7hC sat_s7hN; } in GHC.CString.unpackAppendCString# XMonad.Layout.LayoutModifier.$fShowModifiedLayout1 sat_s7hO; } in : [GHC.Show.$fShow(,)3 sat_s7hP]; } in sat_s7hQ; }; XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshowsPrec [InlPrag=[2]] :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Show.Show (m a), GHC.Show.Show (l a)) => GHC.Types.Int -> XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> GHC.Show.ShowS [GblId, Arity=4, Str=<1!P(L)><1!P(L,L)>, Unf=OtherCon []] = {} \r [$dShow_s7hR $dShow1_s7hS a1_s7hT ds_s7hU] case a1_s7hT of { GHC.Types.I# ww_s7hW [Occ=Once1] -> case ds_s7hU of { XMonad.Layout.LayoutModifier.ModifiedLayout ww1_s7hY [Occ=Once1] ww2_s7hZ [Occ=Once1] -> XMonad.Layout.LayoutModifier.$w$cshowsPrec $dShow_s7hR $dShow1_s7hS ww_s7hW ww1_s7hY ww2_s7hZ; }; }; XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshowList :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Show.Show (m a), GHC.Show.Show (l a)) => [XMonad.Layout.LayoutModifier.ModifiedLayout m l a] -> GHC.Show.ShowS [GblId, Arity=4, Str=<1L>, Unf=OtherCon []] = {} \r [$dShow_s7i0 $dShow1_s7i1 ls_s7i2 s_s7i3] let { sat_s7i8 [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a6ck l_a6cl a_a6cm -> GHC.Show.ShowS [LclId] = {$dShow_s7i0, $dShow1_s7i1} \r [ds_s7i4] case ds_s7i4 of { XMonad.Layout.LayoutModifier.ModifiedLayout ww_s7i6 [Occ=Once1] ww1_s7i7 [Occ=Once1] -> XMonad.Layout.LayoutModifier.$w$cshowsPrec $dShow_s7i0 $dShow1_s7i1 0# ww_s7i6 ww1_s7i7; }; } in GHC.Show.showList__ sat_s7i8 ls_s7i2 s_s7i3; XMonad.Layout.LayoutModifier.$fShowModifiedLayout3 :: GHC.Types.Int [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.I#! [0#]; XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshow :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Show.Show (m a), GHC.Show.Show (l a)) => XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> GHC.Base.String [GblId, Arity=3, Str=<1!P(L,L)>, Unf=OtherCon []] = {} \r [$dShow_s7i9 $dShow1_s7ia x_s7ib] case x_s7ib of { XMonad.Layout.LayoutModifier.ModifiedLayout ww_s7id [Occ=Once1] ww1_s7ie [Occ=Once1] -> XMonad.Layout.LayoutModifier.$w$cshowsPrec $dShow_s7i9 $dShow1_s7ia 0# ww_s7id ww1_s7ie GHC.Types.[]; }; XMonad.Layout.LayoutModifier.$fShowModifiedLayout [InlPrag=CONLIKE] :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Show.Show (m a), GHC.Show.Show (l a)) => GHC.Show.Show (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) [GblId[DFunId], Arity=2, Str=] = {} \r [$dShow_s7if $dShow1_s7ig] let { sat_s7ij [Occ=Once1] :: [XMonad.Layout.LayoutModifier.ModifiedLayout m_a6ck l_a6cl a_a6cm] -> GHC.Show.ShowS [LclId] = {$dShow_s7if, $dShow1_s7ig} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshowList $dShow_s7if $dShow1_s7ig eta_B0 eta_B1; } in let { sat_s7ii [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a6ck l_a6cl a_a6cm -> GHC.Base.String [LclId] = {$dShow_s7if, $dShow1_s7ig} \r [eta_B0] XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshow $dShow_s7if $dShow1_s7ig eta_B0; } in let { sat_s7ih [Occ=Once1] :: GHC.Types.Int -> XMonad.Layout.LayoutModifier.ModifiedLayout m_a6ck l_a6cl a_a6cm -> GHC.Show.ShowS [LclId] = {$dShow_s7if, $dShow1_s7ig} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshowsPrec $dShow_s7if $dShow1_s7ig eta_B0 eta_B1; } in GHC.Show.C:Show [sat_s7ih sat_s7ii sat_s7ij]; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cp1LayoutClass :: forall {m :: * -> *} {a} {l :: * -> *}. (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => GHC.Show.Show (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) [GblId, Arity=3, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7ik $dLayoutClass_s7il $dTypeable_s7im] let { sat_s7io [Occ=Once1, Dmd=LP(LCL(C1(L)),A,A)] :: GHC.Show.Show (l_a6da a_a6d9) [LclId] = {$dLayoutClass_s7il} \u [] XMonad.Core.$p1LayoutClass $dLayoutClass_s7il; } in let { sat_s7in [Occ=Once1, Dmd=LP(LCL(C1(L)),A,A)] :: GHC.Show.Show (m_a6d8 a_a6d9) [LclId] = {$dLayoutModifier_s7ik} \u [] XMonad.Layout.LayoutModifier.$p1LayoutModifier $dLayoutModifier_s7ik; } in XMonad.Layout.LayoutModifier.$fShowModifiedLayout sat_s7in sat_s7io; XMonad.Layout.LayoutModifier.$fReadModifiedLayout2 :: [GHC.Types.Char] [GblId] = {} \u [] GHC.CString.unpackCString# XMonad.Layout.LayoutModifier.$tcModifiedLayout3; XMonad.Layout.LayoutModifier.$fReadModifiedLayout_lexeme15 :: Text.Read.Lex.Lexeme [GblId, Unf=OtherCon []] = CCS_DONT_CARE Text.Read.Lex.Ident! [XMonad.Layout.LayoutModifier.$fReadModifiedLayout2]; XMonad.Layout.LayoutModifier.$fReadModifiedLayout1 :: forall {m :: * -> *} {l :: * -> *} {a}. (GHC.Read.Read (m a), GHC.Read.Read (l a)) => Text.ParserCombinators.ReadPrec.Prec -> forall b. (XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> Text.ParserCombinators.ReadP.P b) -> Text.ParserCombinators.ReadP.P b [GblId, Arity=4, Str=, Unf=OtherCon []] = {} \r [$dRead_s7ip $dRead1_s7iq eta_s7ir eta1_s7is] let { sat_s7iM [Occ=Once1] :: Text.ParserCombinators.ReadPrec.ReadPrec (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead1_s7iq, $dRead_s7ip} \r [c_s7it eta2_s7iu] case c_s7it of { GHC.Types.I# x_s7iw [Occ=Once1] -> case <=# [x_s7iw 10#] of { __DEFAULT -> Text.ParserCombinators.ReadP.Fail []; 1# -> let { lvl124_s7iy [Occ=OnceL1] :: Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {eta2_s7iu, $dRead1_s7iq, $dRead_s7ip} \u [] let { lvl125_s7iz [Occ=OnceL1] :: Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {eta2_s7iu, $dRead1_s7iq, $dRead_s7ip} \u [] let { sat_s7iE [Occ=Once1] :: m_a68S a_a68U -> Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {eta2_s7iu, $dRead1_s7iq} \r [a1_s7iA] let { sat_s7iD [Occ=Once1] :: l_a68T a_a68U -> Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {a1_s7iA, eta2_s7iu} \r [a2_s7iB] let { sat_s7iC [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [a1_s7iA a2_s7iB]; } in eta2_s7iu sat_s7iC; } in GHC.Read.readPrec $dRead1_s7iq XMonad.Layout.LayoutModifier.$fShowModifiedLayout2 sat_s7iD; } in GHC.Read.readPrec $dRead_s7ip XMonad.Layout.LayoutModifier.$fShowModifiedLayout2 sat_s7iE; } in let { sat_s7iH [Occ=Once1] :: Text.Read.Lex.Lexeme -> Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {lvl125_s7iz} \r [a1_s7iF] case Text.Read.Lex.$fEqLexeme_$c== a1_s7iF XMonad.Layout.LayoutModifier.$fReadModifiedLayout_lexeme15 of { GHC.Types.False -> Text.ParserCombinators.ReadP.Fail []; GHC.Types.True -> lvl125_s7iz; }; } in Text.Read.Lex.expect2 sat_s7iH; } in let { k_s7iI [Occ=OnceL1] :: () -> Text.ParserCombinators.ReadP.P b1_i6pQ [LclId, Arity=1, Str=, Unf=OtherCon []] = {lvl124_s7iy} \r [a1_s7iJ] lvl124_s7iy; } in let { sat_s7iL [Occ=Once1] :: GHC.Base.String -> Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {k_s7iI} \r [a1_s7iK] Text.ParserCombinators.ReadP.skipSpaces2 a1_s7iK k_s7iI; } in Text.ParserCombinators.ReadP.Look [sat_s7iL]; }; }; } in GHC.Read.$fRead(,)3 sat_s7iM eta_s7ir eta1_s7is; XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadsPrec :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Read.Read (m a), GHC.Read.Read (l a)) => GHC.Types.Int -> Text.ParserCombinators.ReadP.ReadS (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) [GblId, Arity=3, Str=, Unf=OtherCon []] = {} \r [$dRead_s7iN $dRead1_s7iO eta_s7iP] let { sat_s7iQ [Occ=Once1] :: Text.ParserCombinators.ReadP.P (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead_s7iN, $dRead1_s7iO, eta_s7iP} \u [] XMonad.Layout.LayoutModifier.$fReadModifiedLayout1 $dRead_s7iN $dRead1_s7iO eta_s7iP Text.ParserCombinators.ReadP.$fApplicativeP_$cpure; } in Text.ParserCombinators.ReadP.run sat_s7iQ; XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadListPrec :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Read.Read (m a), GHC.Read.Read (l a)) => Text.ParserCombinators.ReadPrec.ReadPrec [XMonad.Layout.LayoutModifier.ModifiedLayout m l a] [GblId, Arity=2, Str=, Unf=OtherCon []] = {} \r [$dRead_s7iR $dRead1_s7iS] let { sat_s7iT [Occ=Once1] :: Text.ParserCombinators.ReadPrec.ReadPrec (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead_s7iR, $dRead1_s7iS} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fReadModifiedLayout1 $dRead_s7iR $dRead1_s7iS eta_B0 eta_B1; } in GHC.Read.list sat_s7iT; XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadList :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Read.Read (m a), GHC.Read.Read (l a)) => Text.ParserCombinators.ReadP.ReadS [XMonad.Layout.LayoutModifier.ModifiedLayout m l a] [GblId, Arity=2, Str=, Unf=OtherCon []] = {} \r [$dRead_s7iU $dRead1_s7iV] let { sat_s7iX [Occ=Once1] :: Text.ParserCombinators.ReadP.P [XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U] [LclId] = {$dRead_s7iU, $dRead1_s7iV} \u [] let { sat_s7iW [Occ=Once1] :: Text.ParserCombinators.ReadPrec.ReadPrec (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead_s7iU, $dRead1_s7iV} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fReadModifiedLayout1 $dRead_s7iU $dRead1_s7iV eta_B0 eta_B1; } in GHC.Read.list sat_s7iW GHC.Read.$fRead()3 Text.ParserCombinators.ReadP.$fApplicativeP_$cpure; } in Text.ParserCombinators.ReadP.run sat_s7iX; XMonad.Layout.LayoutModifier.$fReadModifiedLayout [InlPrag=CONLIKE] :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Read.Read (m a), GHC.Read.Read (l a)) => GHC.Read.Read (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) [GblId[DFunId], Arity=2, Str=] = {} \r [$dRead_s7iY $dRead1_s7iZ] let { sat_s7j3 [Occ=Once1] :: Text.ParserCombinators.ReadPrec.ReadPrec [XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U] [LclId] = {$dRead_s7iY, $dRead1_s7iZ} \u [] XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadListPrec $dRead_s7iY $dRead1_s7iZ; } in let { sat_s7j2 [Occ=Once1] :: Text.ParserCombinators.ReadPrec.ReadPrec (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead_s7iY, $dRead1_s7iZ} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fReadModifiedLayout1 $dRead_s7iY $dRead1_s7iZ eta_B0 eta_B1; } in let { sat_s7j1 [Occ=Once1] :: Text.ParserCombinators.ReadP.ReadS [XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U] [LclId] = {$dRead_s7iY, $dRead1_s7iZ} \u [] XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadList $dRead_s7iY $dRead1_s7iZ; } in let { sat_s7j0 [Occ=Once1] :: GHC.Types.Int -> Text.ParserCombinators.ReadP.ReadS (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead_s7iY, $dRead1_s7iZ} \r [eta_B0] XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadsPrec $dRead_s7iY $dRead1_s7iZ eta_B0; } in GHC.Read.C:Read [sat_s7j0 sat_s7j1 sat_s7j2 sat_s7j3]; XMonad.Layout.LayoutModifier.$dmmodifyDescription :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> l a -> GHC.Base.String [GblId, Arity=4, Str=<1P(A,A,A,A,A,A,A,A,A,A,A,1C1(L),A)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7j4 $dLayoutClass_s7j5 m1_s7j6 l1_s7j7] case XMonad.Layout.LayoutModifier.modifierDescription $dLayoutModifier_s7j4 m1_s7j6 of { [] -> XMonad.Core.description $dLayoutClass_s7j5 l1_s7j7; : ipv_s7j9 [Occ=Once1] ipv1_s7ja [Occ=Once1] -> let { sat_s7jc [Occ=Once1, Dmd=ML] :: [GHC.Types.Char] [LclId] = {$dLayoutClass_s7j5, l1_s7j7} \s [] let { sat_s7jb [Occ=Once1, Dmd=ML] :: GHC.Base.String [LclId] = {$dLayoutClass_s7j5, l1_s7j7} \s [] XMonad.Core.description $dLayoutClass_s7j5 l1_s7j7; } in GHC.CString.unpackAppendCString# lvl_r79l sat_s7jb; } in GHC.Base.++_$s++ ipv_s7j9 ipv1_s7ja sat_s7jc; }; XMonad.Layout.LayoutModifier.$dmmodifierDescription :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> GHC.Base.String [GblId, Arity=2, Str=, Cpr=1, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7jd ds_s7je] [] []; XMonad.Layout.LayoutModifier.$dmunhook :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.X () [GblId, Arity=5, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = {} \r [$dLayoutModifier_s7jf ds_s7jg eta1_s7jh eta2_s7ji void_0E] let { sat_s7jk [Occ=Once1] :: ((), XMonad.Core.XState) [LclId] = CCCS (,)! [GHC.Tuple.() eta2_s7ji]; } in Solo# [sat_s7jk]; XMonad.Layout.LayoutModifier.$dmhook1 :: forall {m :: * -> *} {a}. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.XConf -> XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), XMonad.Core.XState) #) [GblId, Arity=5, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = {} \r [$dLayoutModifier_s7jl ds_s7jm eta1_s7jn eta2_s7jo void_0E] let { sat_s7jq [Occ=Once1] :: ((), XMonad.Core.XState) [LclId] = CCCS (,)! [GHC.Tuple.() eta2_s7jo]; } in Solo# [sat_s7jq]; XMonad.Layout.LayoutModifier.$dmhook :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.X () [GblId, Arity=5, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = {} \r [eta_B0 eta_B1 eta_B2 eta_B3 void_0E] XMonad.Layout.LayoutModifier.$dmhook1 eta_B0 eta_B1 eta_B2 eta_B3 GHC.Prim.void#; XMonad.Layout.LayoutModifier.$dmpureModifier :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a)) [GblId, Arity=5, Str=, Cpr=1(, 1), Unf=OtherCon []] = {} \r [$dLayoutModifier_s7jr ds_s7js ds1_s7jt ds2_s7ju wrs_s7jv] (,) [wrs_s7jv GHC.Maybe.Nothing]; XMonad.Layout.LayoutModifier.$dmredoLayout :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a)) [GblId, Arity=5, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7jw m1_s7jx r_s7jy ms_s7jz wrs_s7jA] let { eta_s7jB [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,MP(A,ML)))))] :: XMonad.Core.X () [LclId] = {$dLayoutModifier_s7jw, m1_s7jx} \u [] XMonad.Layout.LayoutModifier.hook $dLayoutModifier_s7jw m1_s7jx; } in let { eta1_s7jC [Occ=OnceL1] :: ([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = {$dLayoutModifier_s7jw, m1_s7jx, r_s7jy, ms_s7jz, wrs_s7jA} \u [] XMonad.Layout.LayoutModifier.pureModifier $dLayoutModifier_s7jw m1_s7jx r_s7jy ms_s7jz wrs_s7jA; } in let { sat_s7jQ [Occ=Once1] :: XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO ([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = {eta1_s7jC, eta_s7jB} \r [eta2_s7jD] let { eta4_s7jE [Occ=OnceL1, Dmd=LCL(C1(P(L,MP(A,ML))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO () [LclId] = {eta2_s7jD, eta_s7jB} \u [] eta_s7jB eta2_s7jD; } in let { sat_s7jP [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m_a54L a_a54M)), XMonad.Core.XState) #) [LclId] = {eta1_s7jC, eta4_s7jE} \r [eta6_s7jF void_0E] case eta4_s7jE eta6_s7jF GHC.Prim.void# of { Solo# ipv1_s7jJ [Occ=Once1!] -> let { sat_s7jN [Occ=Once1] :: XMonad.Core.XState [LclId] = {ipv1_s7jJ} \u [] case ipv1_s7jJ of { (,) _ [Occ=Dead] s'_s7jM [Occ=Once1] -> s'_s7jM; }; } in let { sat_s7jO [Occ=Once1] :: (([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m_a54L a_a54M)), XMonad.Core.XState) [LclId] = CCCS (,)! [eta1_s7jC sat_s7jN]; } in Solo# [sat_s7jO]; }; } in sat_s7jP; } in sat_s7jQ; XMonad.Layout.LayoutModifier.$dmpureMess :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> GHC.Maybe.Maybe (m a) [GblId, Arity=3, Str=, Cpr=1, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7jR ds_s7jS ds1_s7jT] GHC.Maybe.Nothing []; XMonad.Layout.LayoutModifier.$dmhandleMessOrMaybeModifyIt :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (Data.Either.Either (m a) XMonad.Core.SomeMessage)) [GblId, Arity=3, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7jU m1_s7jV mess_s7jW] let { m2_s7jX [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,LP(ML,ML)))))] :: XMonad.Core.X (GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = {$dLayoutModifier_s7jU, m1_s7jV, mess_s7jW} \u [] XMonad.Layout.LayoutModifier.handleMess $dLayoutModifier_s7jU m1_s7jV mess_s7jW; } in let { sat_s7ki [Occ=Once1] :: XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (GHC.Maybe.Maybe (Data.Either.Either (m_a54L a_a54M) XMonad.Core.SomeMessage)) [LclId] = {m2_s7jX} \r [r1_s7jY] let { m3_s7jZ [Occ=OnceL1, Dmd=LCL(C1(P(L,LP(ML,ML))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = {r1_s7jY, m2_s7jX} \u [] m2_s7jX r1_s7jY; } in let { sat_s7kh [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe (Data.Either.Either (m_a54L a_a54M) XMonad.Core.SomeMessage), XMonad.Core.XState) #) [LclId] = {m3_s7jZ} \r [s1_s7k0 void_0E] case m3_s7jZ s1_s7k0 GHC.Prim.void# of { Solo# ipv1_s7k4 -> let { sat_s7kf [Occ=Once1] :: XMonad.Core.XState [LclId] = {ipv1_s7k4} \u [] case ipv1_s7k4 of { (,) _ [Occ=Dead] s'_s7ke [Occ=Once1] -> s'_s7ke; }; } in let { sat_s7kb [Occ=Once1] :: GHC.Maybe.Maybe (Data.Either.Either (m_a54L a_a54M) XMonad.Core.SomeMessage) [LclId] = {ipv1_s7k4} \u [] case ipv1_s7k4 of { (,) a1_s7k6 [Occ=Once1!] _ [Occ=Dead] -> case a1_s7k6 of { GHC.Maybe.Nothing -> GHC.Maybe.Nothing []; GHC.Maybe.Just a2_s7k9 [Occ=Once1] -> let { sat_s7ka [Occ=Once1] :: Data.Either.Either (m_a54L a_a54M) XMonad.Core.SomeMessage [LclId] = CCCS Data.Either.Left! [a2_s7k9]; } in GHC.Maybe.Just [sat_s7ka]; }; }; } in let { sat_s7kg [Occ=Once1] :: (GHC.Maybe.Maybe (Data.Either.Either (m_a54L a_a54M) XMonad.Core.SomeMessage), XMonad.Core.XState) [LclId] = CCCS (,)! [sat_s7kb sat_s7kf]; } in Solo# [sat_s7kg]; }; } in sat_s7kh; } in sat_s7ki; XMonad.Layout.LayoutModifier.$dmhandleMess :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (m a)) [GblId, Arity=3, Str=<1P(SL,L)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7kj m1_s7kk mess_s7kl] case mess_s7kl of wild_s7km [Occ=Once2] { XMonad.Core.SomeMessage $dMessage1_s7kn m2_s7ko -> let { eta_s7kp [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,MP(A,ML)))))] :: XMonad.Core.X () [LclId] = {$dLayoutModifier_s7kj, m1_s7kk} \u [] XMonad.Layout.LayoutModifier.unhook $dLayoutModifier_s7kj m1_s7kk; } in let { doUnhook_s7kq [Dmd=ML] :: forall {a2}. XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (GHC.Maybe.Maybe a2) [LclId, Arity=1, Str=, Unf=OtherCon []] = {eta_s7kp} \r [eta2_s7kr] let { eta4_s7ks [Occ=OnceL1, Dmd=LCL(C1(P(L,MP(A,ML))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO () [LclId] = {eta2_s7kr, eta_s7kp} \u [] eta_s7kp eta2_s7kr; } in let { sat_s7kD [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe a2_a5qs, XMonad.Core.XState) #) [LclId] = {eta4_s7ks} \r [eta6_s7kt void_0E] case eta4_s7ks eta6_s7kt GHC.Prim.void# of { Solo# ipv1_s7kx [Occ=Once1!] -> let { sat_s7kB [Occ=Once1] :: XMonad.Core.XState [LclId] = {ipv1_s7kx} \u [] case ipv1_s7kx of { (,) _ [Occ=Dead] s'_s7kA [Occ=Once1] -> s'_s7kA; }; } in let { sat_s7kC [Occ=Once1] :: (GHC.Maybe.Maybe a2_a5qs, XMonad.Core.XState) [LclId] = CCCS (,)! [GHC.Maybe.Nothing sat_s7kB]; } in Solo# [sat_s7kC]; }; } in sat_s7kD; } in let-no-escape { fail_s7kE [Occ=Once2!T[1], Dmd=MCM(L)] :: (# #) -> XMonad.Core.X (GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId[JoinId(1)(Nothing)], Arity=1, Str=, Unf=OtherCon []] = {$dLayoutModifier_s7kj, m1_s7kk, wild_s7km, doUnhook_s7kq, m2_s7ko, $dMessage1_s7kn} \r [void_0E] case Data.Typeable.Internal.sameTypeRep $dMessage1_s7kn XMonad.Core.$fMessageLayoutMessages1 of { GHC.Types.False -> let { eta1_s7kH [Occ=OnceL1] :: GHC.Maybe.Maybe (m_a54L a_a54M) [LclId] = {$dLayoutModifier_s7kj, m1_s7kk, wild_s7km} \u [] XMonad.Layout.LayoutModifier.pureMess $dLayoutModifier_s7kj m1_s7kk wild_s7km; } in let { sat_s7kM [Occ=Once1] :: XMonad.Core.XConf -> XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe (m_a54L a_a54M), XMonad.Core.XState) #) [LclId] = {eta1_s7kH} \r [eta2_s7kI eta3_s7kJ void_XF] let { sat_s7kL [Occ=Once1] :: (GHC.Maybe.Maybe (m_a54L a_a54M), XMonad.Core.XState) [LclId] = CCCS (,)! [eta1_s7kH eta3_s7kJ]; } in Solo# [sat_s7kL]; } in sat_s7kM; GHC.Types.True -> case m2_s7ko of { XMonad.Core.Hide -> let { eta1_s7kO [Occ=OnceL1] :: GHC.Maybe.Maybe (m_a54L a_a54M) [LclId] = {$dLayoutModifier_s7kj, m1_s7kk, wild_s7km} \u [] XMonad.Layout.LayoutModifier.pureMess $dLayoutModifier_s7kj m1_s7kk wild_s7km; } in let { sat_s7kT [Occ=Once1] :: XMonad.Core.XConf -> XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe (m_a54L a_a54M), XMonad.Core.XState) #) [LclId] = {eta1_s7kO} \r [eta2_s7kP eta3_s7kQ void_XF] let { sat_s7kS [Occ=Once1] :: (GHC.Maybe.Maybe (m_a54L a_a54M), XMonad.Core.XState) [LclId] = CCCS (,)! [eta1_s7kO eta3_s7kQ]; } in Solo# [sat_s7kS]; } in sat_s7kT; XMonad.Core.ReleaseResources -> doUnhook_s7kq; }; }; } in case Data.Typeable.Internal.sameTypeRep $dMessage1_s7kn XMonad.Core.$fMessageLayoutMessages1 of { GHC.Types.False -> fail_s7kE GHC.Prim.(##); GHC.Types.True -> case m2_s7ko of { XMonad.Core.Hide -> doUnhook_s7kq; XMonad.Core.ReleaseResources -> fail_s7kE GHC.Prim.(##); }; }; }; XMonad.Layout.LayoutModifier.$dmmodifyLayoutWithUpdate :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X (([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a)), GHC.Maybe.Maybe (m a)) [GblId, Arity=5, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7kW $dLayoutClass_s7kX m1_s7kY w_s7kZ r_s7l0] let { eta_s7l1 [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,LP(ML,ML)))))] :: XMonad.Core.X ([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)) [LclId] = {$dLayoutModifier_s7kW, $dLayoutClass_s7kX, m1_s7kY, w_s7kZ, r_s7l0} \u [] XMonad.Layout.LayoutModifier.modifyLayout $dLayoutModifier_s7kW $dLayoutClass_s7kX m1_s7kY w_s7kZ r_s7l0; } in let { sat_s7lk [Occ=Once1] :: XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)), GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = {eta_s7l1} \r [eta1_s7l2] let { m2_s7l3 [Occ=OnceL1, Dmd=LCL(C1(P(L,LP(ML,ML))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO ([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)) [LclId] = {eta1_s7l2, eta_s7l1} \u [] eta_s7l1 eta1_s7l2; } in let { sat_s7lj [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, ((([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)), GHC.Maybe.Maybe (m_a54L a_a54M)), XMonad.Core.XState) #) [LclId] = {m2_s7l3} \r [s1_s7l4 void_0E] case m2_s7l3 s1_s7l4 GHC.Prim.void# of { Solo# ipv1_s7l8 -> let { sat_s7lh [Occ=Once1] :: XMonad.Core.XState [LclId] = {ipv1_s7l8} \u [] case ipv1_s7l8 of { (,) _ [Occ=Dead] s'_s7lg [Occ=Once1] -> s'_s7lg; }; } in let { sat_s7lc [Occ=Once1] :: ([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)) [LclId] = {ipv1_s7l8} \u [] case ipv1_s7l8 of { (,) a1_s7la [Occ=Once1] _ [Occ=Dead] -> a1_s7la; }; } in let { sat_s7ld [Occ=Once1] :: (([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)), GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = CCCS (,)! [sat_s7lc GHC.Maybe.Nothing]; } in let { sat_s7li [Occ=Once1] :: ((([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)), GHC.Maybe.Maybe (m_a54L a_a54M)), XMonad.Core.XState) [LclId] = CCCS (,)! [sat_s7ld sat_s7lh]; } in Solo# [sat_s7li]; }; } in sat_s7lj; } in sat_s7lk; XMonad.Layout.LayoutModifier.$dmmodifyLayout :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a)) [GblId, Arity=3, Str=<1P(A,A,1L,A,A,A,A,A,A)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7ll $dLayoutClass_s7lm ds_s7ln] XMonad.Core.runLayout $dLayoutClass_s7lm; XMonad.Layout.LayoutModifier.$trModule3 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TrNameS! [XMonad.Layout.LayoutModifier.$trModule4]; XMonad.Layout.LayoutModifier.$trModule1 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TrNameS! [XMonad.Layout.LayoutModifier.$trModule2]; XMonad.Layout.LayoutModifier.$trModule :: GHC.Types.Module [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.Module! [XMonad.Layout.LayoutModifier.$trModule3 XMonad.Layout.LayoutModifier.$trModule1]; $krep_r79m :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepTyConApp! [GHC.Types.$tcConstraint GHC.Types.[]]; $krep1_r79n :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [GHC.Types.krep$* $krep_r79m]; XMonad.Layout.LayoutModifier.$tcLayoutModifier1 [InlPrag=[~]] :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [GHC.Types.krep$*Arr* $krep1_r79n]; $krep2_r79o :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [GHC.Types.krep$*Arr* GHC.Types.krep$*Arr*]; XMonad.Layout.LayoutModifier.$tcModifiedLayout1 [InlPrag=[~]] :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [GHC.Types.krep$*Arr* $krep2_r79o]; $krep3_r79p :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepVar! [2#]; $krep4_r79q :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepVar! [1#]; $krep5_r79r :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepApp! [$krep4_r79q $krep3_r79p]; $krep6_r79s :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepVar! [0#]; $krep7_r79t :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepApp! [$krep6_r79s $krep3_r79p]; XMonad.Layout.LayoutModifier.$tcLayoutModifier2 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TrNameS! [XMonad.Layout.LayoutModifier.$tcLayoutModifier3]; XMonad.Layout.LayoutModifier.$tcLayoutModifier :: GHC.Types.TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TyCon! [13906852259647939033##64 11321741631731544716##64 XMonad.Layout.LayoutModifier.$trModule XMonad.Layout.LayoutModifier.$tcLayoutModifier2 0# XMonad.Layout.LayoutModifier.$tcLayoutModifier1]; XMonad.Layout.LayoutModifier.$tcModifiedLayout2 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TrNameS! [XMonad.Layout.LayoutModifier.$tcModifiedLayout3]; XMonad.Layout.LayoutModifier.$tcModifiedLayout :: GHC.Types.TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TyCon! [834223827622634822##64 17987029454211372227##64 XMonad.Layout.LayoutModifier.$trModule XMonad.Layout.LayoutModifier.$tcModifiedLayout2 0# XMonad.Layout.LayoutModifier.$tcModifiedLayout1]; $krep8_r79u :: [GHC.Types.KindRep] [GblId, Unf=OtherCon []] = CCS_DONT_CARE :! [$krep3_r79p GHC.Types.[]]; $krep9_r79v :: [GHC.Types.KindRep] [GblId, Unf=OtherCon []] = CCS_DONT_CARE :! [$krep4_r79q $krep8_r79u]; $krep10_r79w :: [GHC.Types.KindRep] [GblId, Unf=OtherCon []] = CCS_DONT_CARE :! [$krep6_r79s $krep9_r79v]; $krep11_r79x :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepTyConApp! [XMonad.Layout.LayoutModifier.$tcModifiedLayout $krep10_r79w]; $krep12_r79y :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [$krep5_r79r $krep11_r79x]; XMonad.Layout.LayoutModifier.$tc'ModifiedLayout1 [InlPrag=[~]] :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [$krep7_r79t $krep12_r79y]; XMonad.Layout.LayoutModifier.$tc'ModifiedLayout2 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TrNameS! [XMonad.Layout.LayoutModifier.$tc'ModifiedLayout3]; XMonad.Layout.LayoutModifier.$tc'ModifiedLayout :: GHC.Types.TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TyCon! [15921517588708234291##64 17064943841429469184##64 XMonad.Layout.LayoutModifier.$trModule XMonad.Layout.LayoutModifier.$tc'ModifiedLayout2 3# XMonad.Layout.LayoutModifier.$tc'ModifiedLayout1]; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta2 :: Data.Typeable.Internal.TypeRep XMonad.Layout.LayoutModifier.ModifiedLayout [GblId] = {} \u [] Data.Typeable.Internal.mkTrCon XMonad.Layout.LayoutModifier.$tcModifiedLayout GHC.Types.[]; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta1 :: forall {m :: * -> *} {a} {l :: * -> *}. (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => Data.Typeable.Internal.TypeRep (XMonad.Layout.LayoutModifier.ModifiedLayout m l) [GblId, Arity=3, Str=<1P(A,1L,A,A,A,A,A,A,A)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7lo $dLayoutClass_s7lp $dTypeable_s7lq] case XMonad.Core.$p2LayoutClass $dLayoutClass_s7lp of sat_s7ls [Occ=Once1] { __DEFAULT -> case Data.Typeable.Internal.mkTrApp XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta2 $dTypeable_s7lq of sat_s7lr [Occ=Once1] { __DEFAULT -> Data.Typeable.Internal.mkTrApp sat_s7lr sat_s7ls; }; }; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cdoLayout :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.StackSet.Stack a -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId, Arity=6, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s7lt $dLayoutClass_s7lu $dTypeable_s7lv l1_s7lw r_s7lx s_s7ly] let { eta_s7lz [Occ=OnceL1] :: a_a6d9 [LclId] = {s_s7ly} \u [] case s_s7ly of { XMonad.StackSet.Stack ds9_s7lB [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] -> ds9_s7lB; }; } in let { eta1_s7lE [Occ=OnceL1] :: (a_a6d9, Graphics.X11.Xlib.Types.Rectangle) [LclId, Unf=OtherCon []] = CCCS (,)! [eta_s7lz r_s7lx]; } in let { eta2_s7lF [Occ=OnceL1] :: [(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)] [LclId, Unf=OtherCon []] = CCCS :! [eta1_s7lE GHC.Types.[]]; } in let { eta3_s7lG [Occ=OnceL1] :: ([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)) [LclId, Unf=OtherCon []] = CCCS (,)! [eta2_s7lF GHC.Maybe.Nothing]; } in let { sat_s7lL [Occ=Once1] :: XMonad.Core.XConf -> XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)), XMonad.Core.XState) #) [LclId] = {eta3_s7lG} \r [eta4_s7lH eta5_s7lI void_0E] let { sat_s7lK [Occ=Once1] :: (([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)), XMonad.Core.XState) [LclId] = CCCS (,)! [eta3_s7lG eta5_s7lI]; } in Solo# [sat_s7lK]; } in sat_s7lL; lvl1_r79z :: forall {l :: * -> *} {m :: * -> *} {a}. XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.StackSet.Stack a -> [(a, Graphics.X11.Xlib.Types.Rectangle)] [GblId, Arity=3, Str=, Unf=OtherCon []] = {} \r [ds_s7lM r_s7lN s_s7lO] let { sat_s7lT [Occ=Once1] :: a_a6d9 [LclId] = {s_s7lO} \u [] case s_s7lO of { XMonad.StackSet.Stack ds9_s7lQ [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] -> ds9_s7lQ; }; } in let { sat_s7lU [Occ=Once1] :: (a_a6d9, Graphics.X11.Xlib.Types.Rectangle) [LclId] = CCCS (,)! [sat_s7lT r_s7lN]; } in : [sat_s7lU GHC.Types.[]]; lvl2_r79A :: forall {a} {l :: * -> *} {m :: * -> *}. ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId, Unf=OtherCon []] = CCS_DONT_CARE (,)! [GHC.Types.[] GHC.Maybe.Nothing]; lvl3_r79B :: forall {a} {l :: * -> *} {m :: * -> *}. XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.XConf -> XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)), XMonad.Core.XState) #) [GblId, Arity=5, Str=, Cpr=1(, 1(1(1, 1),)), Unf=OtherCon []] = {} \r [ds_s7lV ds1_s7lW eta_s7lX eta1_s7lY void_0E] let { sat_s7m0 [Occ=Once1] :: (([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)), XMonad.Core.XState) [LclId] = CCCS (,)! [lvl2_r79A eta1_s7lY]; } in Solo# [sat_s7m0]; lvl4_r79C :: forall {a} {l :: * -> *} {m :: * -> *}. XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> XMonad.Core.SomeMessage -> GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) [GblId, Arity=2, Str=, Cpr=1, Unf=OtherCon []] = {} \r [ds_s7m1 ds1_s7m2] GHC.Maybe.Nothing []; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta [InlPrag=CONLIKE] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => XMonad.Core.LayoutClass (XMonad.Layout.LayoutModifier.ModifiedLayout m l) a [GblId[DFunId], Arity=3, Str=] = {} \r [$dLayoutModifier_s7m3 $dLayoutClass_s7m4 $dTypeable_s7m5] let { sat_s7mb [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9 -> GHC.Base.String [LclId] = {$dLayoutModifier_s7m3, $dLayoutClass_s7m4, $dTypeable_s7m5} \r [eta_B0] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cdescription $dLayoutModifier_s7m3 $dLayoutClass_s7m4 $dTypeable_s7m5 eta_B0; } in let { sat_s7ma [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9 -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)) [LclId] = {$dLayoutModifier_s7m3, $dLayoutClass_s7m4, $dTypeable_s7m5} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$chandleMessage $dLayoutModifier_s7m3 $dLayoutClass_s7m4 $dTypeable_s7m5 eta_B0 eta_B1; } in let { sat_s7m9 [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9 -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.StackSet.Stack a_a6d9 -> XMonad.Core.X ([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)) [LclId] = {$dLayoutModifier_s7m3, $dLayoutClass_s7m4, $dTypeable_s7m5} \r [eta_B0 eta_B1 eta_B2] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cdoLayout $dLayoutModifier_s7m3 $dLayoutClass_s7m4 $dTypeable_s7m5 eta_B0 eta_B1 eta_B2; } in let { sat_s7m8 [Occ=Once1] :: XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9) a_a6d9 -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)) [LclId] = {$dLayoutModifier_s7m3, $dLayoutClass_s7m4, $dTypeable_s7m5} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$crunLayout $dLayoutModifier_s7m3 $dLayoutClass_s7m4 $dTypeable_s7m5 eta_B0 eta_B1; } in let { sat_s7m7 [Occ=Once1] :: Data.Typeable.Internal.Typeable (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da) [LclId] = {$dLayoutModifier_s7m3, $dLayoutClass_s7m4, $dTypeable_s7m5} \u [] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta1 $dLayoutModifier_s7m3 $dLayoutClass_s7m4 $dTypeable_s7m5; } in let { sat_s7m6 [Occ=Once1] :: GHC.Show.Show (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9) [LclId] = {$dLayoutModifier_s7m3, $dLayoutClass_s7m4, $dTypeable_s7m5} \u [] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cp1LayoutClass $dLayoutModifier_s7m3 $dLayoutClass_s7m4 $dTypeable_s7m5; } in XMonad.Core.C:LayoutClass [sat_s7m6 sat_s7m7 sat_s7m8 sat_s7m9 lvl1_r79z lvl3_r79B sat_s7ma lvl4_r79C sat_s7mb]; XMonad.Layout.LayoutModifier.ModifiedLayout [InlPrag=CONLIKE] :: forall (m :: * -> *) (l :: * -> *) a. m a %1 -> l a %1 -> XMonad.Layout.LayoutModifier.ModifiedLayout m l a [GblId[DataCon], Arity=2, Caf=NoCafRefs, Unf=OtherCon []] = {} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.ModifiedLayout [eta_B0 eta_B1]; XMonad.Layout.LayoutModifier.C:LayoutModifier [InlPrag=CONLIKE] :: forall (m :: * -> *) a. GHC.Show.Show (m a) -> GHC.Read.Read (m a) -> (forall (l :: * -> *). XMonad.Core.LayoutClass l a => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a))) -> (forall (l :: * -> *). XMonad.Core.LayoutClass l a => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X (([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a)), GHC.Maybe.Maybe (m a))) -> (m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (m a))) -> (m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (Data.Either.Either (m a) XMonad.Core.SomeMessage))) -> (m a -> XMonad.Core.SomeMessage -> GHC.Maybe.Maybe (m a)) -> (m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a))) -> (m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a))) -> (m a -> XMonad.Core.X ()) -> (m a -> XMonad.Core.X ()) -> (m a -> GHC.Base.String) -> (forall (l :: * -> *). XMonad.Core.LayoutClass l a => m a -> l a -> GHC.Base.String) -> XMonad.Layout.LayoutModifier.LayoutModifier m a [GblId[DataCon], Arity=13, Caf=NoCafRefs, Unf=OtherCon []] = {} \r [eta_B0 eta_B1 eta_B2 eta_B3 eta_B4 eta_B5 eta_B6 eta_B7 eta_B8 eta_B9 eta_Ba eta_Bb eta_Bc] XMonad.Layout.LayoutModifier.C:LayoutModifier [eta_B0 eta_B1 eta_B2 eta_B3 eta_B4 eta_B5 eta_B6 eta_B7 eta_B8 eta_B9 eta_Ba eta_Bb eta_Bc]; ==================== Final STG: ==================== XMonad.Layout.LayoutModifier.$tc'ModifiedLayout3 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "'ModifiedLayout"#; XMonad.Layout.LayoutModifier.$tcLayoutModifier3 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "LayoutModifier"#; XMonad.Layout.LayoutModifier.$trModule2 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "XMonad.Layout.LayoutModifier"#; XMonad.Layout.LayoutModifier.$trModule4 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "xmonad-contrib-0.17.1-inplace"#; lvl_r79l :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = " "#; XMonad.Layout.LayoutModifier.$tcModifiedLayout3 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "ModifiedLayout"#; XMonad.Layout.LayoutModifier.$fShowModifiedLayout1 :: GHC.Prim.Addr# [GblId, Unf=OtherCon []] = "ModifiedLayout "#; XMonad.Layout.LayoutModifier.$p1LayoutModifier [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => GHC.Show.Show (m a) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7WW] case v_s7WW of { XMonad.Layout.LayoutModifier.C:LayoutModifier v_s7WY [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7WY; }; XMonad.Layout.LayoutModifier.$p2LayoutModifier [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => GHC.Read.Read (m a) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7Xb] case v_s7Xb of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] v_s7Xe [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7Xe; }; XMonad.Layout.LayoutModifier.modifyLayout [InlPrag=[~]] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7Xq] case v_s7Xq of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] v_s7Xu [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7Xu; }; XMonad.Layout.LayoutModifier.modifyLayoutWithUpdate [InlPrag=[~]] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X (([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a)), GHC.Maybe.Maybe (m a)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7XF] case v_s7XF of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7XK [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7XK; }; XMonad.Layout.LayoutModifier.handleMess [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (m a)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7XU] case v_s7XU of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7Y0 [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7Y0; }; XMonad.Layout.LayoutModifier.handleMessOrMaybeModifyIt [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (Data.Either.Either (m a) XMonad.Core.SomeMessage)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7Y9] case v_s7Y9 of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7Yg [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7Yg; }; XMonad.Layout.LayoutModifier.pureMess [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> GHC.Maybe.Maybe (m a) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7Yo] case v_s7Yo of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7Yw [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7Yw; }; XMonad.Layout.LayoutModifier.redoLayout [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7YD] case v_s7YD of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7YM [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7YM; }; XMonad.Layout.LayoutModifier.pureModifier [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a)) [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7YS] case v_s7YS of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7Z2 [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7Z2; }; XMonad.Layout.LayoutModifier.hook [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.X () [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7Z7] case v_s7Z7 of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7Zi [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> v_s7Zi; }; XMonad.Layout.LayoutModifier.unhook [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.X () [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7Zm] case v_s7Zm of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7Zy [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] -> v_s7Zy; }; XMonad.Layout.LayoutModifier.modifierDescription [InlPrag=[~]] :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> GHC.Base.String [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7ZB] case v_s7ZB of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s7ZO [Occ=Once1] _ [Occ=Dead] -> v_s7ZO; }; XMonad.Layout.LayoutModifier.modifyDescription [InlPrag=[~]] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> l a -> GHC.Base.String [GblId[ClassOp], Arity=1, Caf=NoCafRefs, Str=, Unf=OtherCon []] = {} \r [v_s7ZQ] case v_s7ZQ of { XMonad.Layout.LayoutModifier.C:LayoutModifier _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] v_s804 [Occ=Once1] -> v_s804; }; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cdescription :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> GHC.Base.String [GblId, Arity=4, Str=<1P(A,A,A,A,A,A,A,A,A,A,A,A,1C1(C1(C1(L))))><1!P(L,L)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s805 $dLayoutClass_s806 $dTypeable_s807 ds_s808] case ds_s808 of { XMonad.Layout.LayoutModifier.ModifiedLayout m1_s80a [Occ=Once1] l1_s80b [Occ=Once1] -> XMonad.Layout.LayoutModifier.modifyDescription $dLayoutModifier_s805 $dLayoutClass_s806 m1_s80a l1_s80b; }; XMonad.Layout.LayoutModifier.$w$chandleMessage [InlPrag=[2]] :: forall {m :: * -> *} {a} {l :: * -> *}. (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> l a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId, Arity=5, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s80c $dLayoutClass_s80d ww_s80e ww1_s80f mess_s80g] let { lvl5_s80h [Occ=OnceL2, Dmd=LCL(C1(C1(L)))] :: XMonad.Core.X (GHC.Maybe.Maybe (l_s76h a_s76g)) [LclId] = {$dLayoutClass_s80d, ww1_s80f, mess_s80g} \u [] XMonad.Core.handleMessage $dLayoutClass_s80d ww1_s80f mess_s80g; } in let { m1_s80i [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,1P(SL,L)))))] :: XMonad.Core.X (GHC.Maybe.Maybe (Data.Either.Either (m_s76f a_s76g) XMonad.Core.SomeMessage)) [LclId] = {$dLayoutModifier_s80c, ww_s80e, mess_s80g} \u [] XMonad.Layout.LayoutModifier.handleMessOrMaybeModifyIt $dLayoutModifier_s80c ww_s80e mess_s80g; } in let { sat_s81f [Occ=Once1] :: XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g)) [LclId] = {$dLayoutClass_s80d, ww1_s80f, lvl5_s80h, ww_s80e, m1_s80i} \r [r1_s80j] let { m2_s80k [Occ=OnceL1, Dmd=LCL(C1(P(L,1P(SL,L))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (GHC.Maybe.Maybe (Data.Either.Either (m_s76f a_s76g) XMonad.Core.SomeMessage)) [LclId] = {r1_s80j, m1_s80i} \u [] m1_s80i r1_s80j; } in let { sat_s81e [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g), XMonad.Core.XState) #) [LclId] = {$dLayoutClass_s80d, ww1_s80f, r1_s80j, lvl5_s80h, ww_s80e, m2_s80k} \r [s1_s80l void_0E] case m2_s80k s1_s80l GHC.Prim.void# of { Solo# ipv1_s80p [Occ=Once1!] -> case ipv1_s80p of { (,) a1_s80r s'_s80s [Occ=Once3] -> let-no-escape { $j_s80t [Occ=Once3!T[2], Dmd=MCM(C1(L))] :: GHC.Prim.State# GHC.Prim.RealWorld -> (GHC.Maybe.Maybe (l_s76h a_s76g), XMonad.Core.XState) -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g), XMonad.Core.XState) #) [LclId[JoinId(2)(Nothing)], Arity=2, Str=, Unf=OtherCon []] = {ww1_s80f, ww_s80e, a1_s80r} \r [void_XF ipv3_s80v] let { sat_s80Y [Occ=Once1] :: XMonad.Core.XState [LclId] = {ipv3_s80v} \u [] case ipv3_s80v of { (,) _ [Occ=Dead] s'1_s80X [Occ=Once1] -> s'1_s80X; }; } in let { sat_s80U [Occ=Once1] :: GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g) [LclId] = {ww1_s80f, ipv3_s80v, ww_s80e, a1_s80r} \u [] case a1_s80r of { GHC.Maybe.Nothing -> case ipv3_s80v of { (,) a2_s80y [Occ=Once1!] _ [Occ=Dead] -> case a2_s80y of { GHC.Maybe.Nothing -> GHC.Maybe.Nothing []; GHC.Maybe.Just a3_s80B [Occ=Once1] -> let { sat_s80C [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [ww_s80e a3_s80B]; } in GHC.Maybe.Just [sat_s80C]; }; }; GHC.Maybe.Just ds_s80D [Occ=Once1!] -> case ds_s80D of { Data.Either.Left m'_s80F [Occ=Once1] -> let { sat_s80L [Occ=Once1] :: l_s76h a_s76g [LclId] = {ww1_s80f, ipv3_s80v} \u [] case ipv3_s80v of { (,) a2_s80H [Occ=Once1!] _ [Occ=Dead] -> case a2_s80H of { GHC.Maybe.Nothing -> ww1_s80f; GHC.Maybe.Just v_s80K [Occ=Once1] -> v_s80K; }; }; } in let { sat_s80M [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [m'_s80F sat_s80L]; } in GHC.Maybe.Just [sat_s80M]; Data.Either.Right _ [Occ=Dead] -> case ipv3_s80v of { (,) a2_s80P [Occ=Once1!] _ [Occ=Dead] -> case a2_s80P of { GHC.Maybe.Nothing -> GHC.Maybe.Nothing []; GHC.Maybe.Just a3_s80S [Occ=Once1] -> let { sat_s80T [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [ww_s80e a3_s80S]; } in GHC.Maybe.Just [sat_s80T]; }; }; }; }; } in let { sat_s80Z [Occ=Once1] :: (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76f l_s76h a_s76g), XMonad.Core.XState) [LclId] = CCCS (,)! [sat_s80U sat_s80Y]; } in Solo# [sat_s80Z]; } in case a1_s80r of { GHC.Maybe.Nothing -> case lvl5_s80h r1_s80j s'_s80s GHC.Prim.void# of { Solo# ipv3_s813 [Occ=Once1] -> $j_s80t GHC.Prim.void# ipv3_s813; }; GHC.Maybe.Just ds_s814 [Occ=Once1!] -> case ds_s814 of { Data.Either.Left _ [Occ=Dead] -> case lvl5_s80h r1_s80j s'_s80s GHC.Prim.void# of { Solo# ipv4_s819 [Occ=Once1] -> $j_s80t GHC.Prim.void# ipv4_s819; }; Data.Either.Right mess'_s81a [Occ=Once1] -> case XMonad.Core.handleMessage $dLayoutClass_s80d ww1_s80f mess'_s81a r1_s80j s'_s80s GHC.Prim.void# of { Solo# ipv3_s81d [Occ=Once1] -> $j_s80t GHC.Prim.void# ipv3_s81d; }; }; }; }; }; } in sat_s81e; } in sat_s81f; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$chandleMessage [InlPrag=[2]] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId, Arity=5, Str=<1!P(L,L)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s81g $dLayoutClass_s81h $dTypeable_s81i ds_s81j mess_s81k] case ds_s81j of { XMonad.Layout.LayoutModifier.ModifiedLayout ww_s81m [Occ=Once1] ww1_s81n [Occ=Once1] -> XMonad.Layout.LayoutModifier.$w$chandleMessage $dLayoutModifier_s81g $dLayoutClass_s81h ww_s81m ww1_s81n mess_s81k; }; XMonad.Layout.LayoutModifier.$w$crunLayout [InlPrag=[2]] :: forall {m :: * -> *} {a} {l :: * -> *}. (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => XMonad.Core.WorkspaceId -> m a -> l a -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId[StrictWorker([~, ~, !])], Arity=7, Str=<1L>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s81o $dLayoutClass_s81p ww_s81q ww1_s81r ww2_s81s ww3_s81t r_s81u] case ww_s81q of ww4_s81v [Occ=OnceL1] { __DEFAULT -> let { m1_s81w [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,1P(1P(1P(L,ML),L),L)))))] :: XMonad.Core.X (([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_s76w a_s76v)), GHC.Maybe.Maybe (m_s76u a_s76v)) [LclId] = {$dLayoutModifier_s81o, $dLayoutClass_s81p, ww1_s81r, r_s81u, ww4_s81v, ww2_s81s, ww3_s81t} \u [] let { sat_s81x [Occ=Once1] :: XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l_s76w a_s76v) a_s76v [LclId] = CCCS XMonad.StackSet.Workspace! [ww4_s81v ww2_s81s ww3_s81t]; } in XMonad.Layout.LayoutModifier.modifyLayoutWithUpdate $dLayoutModifier_s81o $dLayoutClass_s81p ww1_s81r sat_s81x r_s81u; } in let { sat_s82j [Occ=Once1] :: XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO ([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v)) [LclId] = {ww2_s81s, ww1_s81r, $dLayoutModifier_s81o, r_s81u, ww3_s81t, m1_s81w} \r [r1_s81y] let { m2_s81z [Occ=OnceL1, Dmd=LCL(C1(P(L,1P(1P(1P(L,ML),L),L))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_s76w a_s76v)), GHC.Maybe.Maybe (m_s76u a_s76v)) [LclId] = {r1_s81y, m1_s81w} \u [] m1_s81w r1_s81y; } in let { sat_s82i [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v)), XMonad.Core.XState) #) [LclId] = {ww2_s81s, ww1_s81r, $dLayoutModifier_s81o, r_s81u, ww3_s81t, r1_s81y, m2_s81z} \r [s1_s81A void_0E] case m2_s81z s1_s81A GHC.Prim.void# of { Solo# ipv1_s81E [Occ=Once1!] -> case ipv1_s81E of { (,) a1_s81G [Occ=Once1!] s'_s81H [Occ=Once1] -> case a1_s81G of { (,) ds_s81J [Occ=Once1!] mm'_s81K -> case ds_s81J of { (,) ws_s81M [Occ=Once1] ml'_s81N [Occ=Once3!] -> let { sat_s81Q [Occ=Once1] :: m_s76u a_s76v [LclId] = {ww1_s81r, mm'_s81K} \u [] case mm'_s81K of { GHC.Maybe.Nothing -> ww1_s81r; GHC.Maybe.Just v_s81P [Occ=Once1] -> v_s81P; }; } in case XMonad.Layout.LayoutModifier.redoLayout $dLayoutModifier_s81o sat_s81Q r_s81u ww3_s81t ws_s81M r1_s81y s'_s81H GHC.Prim.void# of { Solo# ipv3_s81T [Occ=Once1!] -> case ipv3_s81T of { (,) a2_s81V [Occ=Once1!] s'1_s81W [Occ=Once1] -> case a2_s81V of { (,) ws'_s81Y [Occ=Once1] mm''_s81Z [Occ=Once1!] -> let { sat_s82f [Occ=Once1] :: GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v) [LclId] = {ww2_s81s, ml'_s81N, ww1_s81r, mm'_s81K, mm''_s81Z} \u [] case mm''_s81Z of { GHC.Maybe.Nothing -> case mm'_s81K of { GHC.Maybe.Nothing -> case ml'_s81N of { GHC.Maybe.Nothing -> GHC.Maybe.Nothing []; GHC.Maybe.Just a3_s823 [Occ=Once1] -> let { sat_s824 [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [ww1_s81r a3_s823]; } in GHC.Maybe.Just [sat_s824]; }; GHC.Maybe.Just m'_s825 [Occ=Once1] -> let { sat_s828 [Occ=Once1] :: l_s76w a_s76v [LclId] = {ww2_s81s, ml'_s81N} \u [] case ml'_s81N of { GHC.Maybe.Nothing -> ww2_s81s; GHC.Maybe.Just v_s827 [Occ=Once1] -> v_s827; }; } in let { sat_s829 [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [m'_s825 sat_s828]; } in GHC.Maybe.Just [sat_s829]; }; GHC.Maybe.Just ipv4_s82a [Occ=Once1] -> let { sat_s82d [Occ=Once1] :: l_s76w a_s76v [LclId] = {ww2_s81s, ml'_s81N} \u [] case ml'_s81N of { GHC.Maybe.Nothing -> ww2_s81s; GHC.Maybe.Just v_s82c [Occ=Once1] -> v_s82c; }; } in let { sat_s82e [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [ipv4_s82a sat_s82d]; } in GHC.Maybe.Just [sat_s82e]; }; } in let { sat_s82g [Occ=Once1] :: ([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v)) [LclId] = CCCS (,)! [ws'_s81Y sat_s82f]; } in let { sat_s82h [Occ=Once1] :: (([(a_s76v, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_s76u l_s76w a_s76v)), XMonad.Core.XState) [LclId] = CCCS (,)! [sat_s82g s'1_s81W]; } in Solo# [sat_s82h]; }; }; }; }; }; }; }; } in sat_s82i; } in sat_s82j; }; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$crunLayout [InlPrag=[2]] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId, Arity=5, Str=<1!P(1L,1!P(L,L),L)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s82k $dLayoutClass_s82l $dTypeable_s82m ds_s82n r_s82o] case ds_s82n of { XMonad.StackSet.Workspace ww_s82q [Occ=Once1] ww1_s82r [Occ=Once1!] ww2_s82s [Occ=Once1] -> case ww1_s82r of { XMonad.Layout.LayoutModifier.ModifiedLayout ww3_s82u [Occ=Once1] ww4_s82v [Occ=Once1] -> XMonad.Layout.LayoutModifier.$w$crunLayout $dLayoutModifier_s82k $dLayoutClass_s82l ww_s82q ww3_s82u ww4_s82v ww2_s82s r_s82o; }; }; XMonad.Layout.LayoutModifier.$fShowModifiedLayout2 :: GHC.Types.Int [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.I#! [11#]; XMonad.Layout.LayoutModifier.$w$cshowsPrec [InlPrag=[2]] :: forall {m :: * -> *} {l :: * -> *} {a}. (GHC.Show.Show (m a), GHC.Show.Show (l a)) => GHC.Prim.Int# -> m a -> l a -> GHC.Show.ShowS [GblId, Arity=5, Str=, Unf=OtherCon []] = {} \r [$dShow_s82w $dShow1_s82x ww_s82y ww1_s82z ww2_s82A] let { f_s82B [Occ=OnceL2!] :: GHC.Base.String -> GHC.Base.String [LclId] = {$dShow_s82w, ww1_s82z} \u [] GHC.Show.showsPrec $dShow_s82w XMonad.Layout.LayoutModifier.$fShowModifiedLayout2 ww1_s82z; } in let { g_s82C [Occ=OnceL2!] :: GHC.Base.String -> GHC.Base.String [LclId] = {$dShow1_s82x, ww2_s82A} \u [] GHC.Show.showsPrec $dShow1_s82x XMonad.Layout.LayoutModifier.$fShowModifiedLayout2 ww2_s82A; } in case >=# [ww_s82y 11#] of { __DEFAULT -> let { sat_s82I [Occ=Once1T[0]] :: GHC.Base.String -> [GHC.Types.Char] [LclId] = {f_s82B, g_s82C} \r [x_s82E] let { sat_s82H [Occ=Once1, Dmd=ML] :: GHC.Base.String [LclId] = {f_s82B, x_s82E, g_s82C} \s [] let { sat_s82F [Occ=Once1] :: GHC.Base.String [LclId] = {x_s82E, g_s82C} \u [] g_s82C x_s82E; } in let { sat_s82G [Occ=Once1] :: [GHC.Types.Char] [LclId] = CCCS :! [GHC.Show.showSpace1 sat_s82F]; } in f_s82B sat_s82G; } in GHC.CString.unpackAppendCString# XMonad.Layout.LayoutModifier.$fShowModifiedLayout1 sat_s82H; } in sat_s82I; 1# -> let { sat_s82P [Occ=Once1T[0]] :: GHC.Base.String -> [GHC.Types.Char] [LclId] = {g_s82C, f_s82B} \r [x_s82J] let { sat_s82O [Occ=Once1] :: [GHC.Types.Char] [LclId] = {g_s82C, x_s82J, f_s82B} \u [] let { sat_s82N [Occ=Once1, Dmd=ML] :: GHC.Base.String [LclId] = {g_s82C, x_s82J, f_s82B} \s [] let { sat_s82L [Occ=Once1] :: GHC.Base.String [LclId] = {g_s82C, x_s82J} \u [] let { sat_s82K [Occ=Once1] :: [GHC.Types.Char] [LclId] = CCCS :! [GHC.Show.$fShow(,)1 x_s82J]; } in g_s82C sat_s82K; } in let { sat_s82M [Occ=Once1] :: [GHC.Types.Char] [LclId] = CCCS :! [GHC.Show.showSpace1 sat_s82L]; } in f_s82B sat_s82M; } in GHC.CString.unpackAppendCString# XMonad.Layout.LayoutModifier.$fShowModifiedLayout1 sat_s82N; } in : [GHC.Show.$fShow(,)3 sat_s82O]; } in sat_s82P; }; XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshowsPrec [InlPrag=[2]] :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Show.Show (m a), GHC.Show.Show (l a)) => GHC.Types.Int -> XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> GHC.Show.ShowS [GblId, Arity=4, Str=<1!P(L)><1!P(L,L)>, Unf=OtherCon []] = {} \r [$dShow_s82Q $dShow1_s82R a1_s82S ds_s82T] case a1_s82S of { GHC.Types.I# ww_s82V [Occ=Once1] -> case ds_s82T of { XMonad.Layout.LayoutModifier.ModifiedLayout ww1_s82X [Occ=Once1] ww2_s82Y [Occ=Once1] -> XMonad.Layout.LayoutModifier.$w$cshowsPrec $dShow_s82Q $dShow1_s82R ww_s82V ww1_s82X ww2_s82Y; }; }; XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshowList :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Show.Show (m a), GHC.Show.Show (l a)) => [XMonad.Layout.LayoutModifier.ModifiedLayout m l a] -> GHC.Show.ShowS [GblId, Arity=4, Str=<1L>, Unf=OtherCon []] = {} \r [$dShow_s82Z $dShow1_s830 ls_s831 s_s832] let { sat_s837 [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a6ck l_a6cl a_a6cm -> GHC.Show.ShowS [LclId] = {$dShow_s82Z, $dShow1_s830} \r [ds_s833] case ds_s833 of { XMonad.Layout.LayoutModifier.ModifiedLayout ww_s835 [Occ=Once1] ww1_s836 [Occ=Once1] -> XMonad.Layout.LayoutModifier.$w$cshowsPrec $dShow_s82Z $dShow1_s830 0# ww_s835 ww1_s836; }; } in GHC.Show.showList__ sat_s837 ls_s831 s_s832; XMonad.Layout.LayoutModifier.$fShowModifiedLayout3 :: GHC.Types.Int [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.I#! [0#]; XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshow :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Show.Show (m a), GHC.Show.Show (l a)) => XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> GHC.Base.String [GblId, Arity=3, Str=<1!P(L,L)>, Unf=OtherCon []] = {} \r [$dShow_s838 $dShow1_s839 x_s83a] case x_s83a of { XMonad.Layout.LayoutModifier.ModifiedLayout ww_s83c [Occ=Once1] ww1_s83d [Occ=Once1] -> XMonad.Layout.LayoutModifier.$w$cshowsPrec $dShow_s838 $dShow1_s839 0# ww_s83c ww1_s83d GHC.Types.[]; }; XMonad.Layout.LayoutModifier.$fShowModifiedLayout [InlPrag=CONLIKE] :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Show.Show (m a), GHC.Show.Show (l a)) => GHC.Show.Show (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) [GblId[DFunId], Arity=2, Str=] = {} \r [$dShow_s83e $dShow1_s83f] let { sat_s83i [Occ=Once1] :: [XMonad.Layout.LayoutModifier.ModifiedLayout m_a6ck l_a6cl a_a6cm] -> GHC.Show.ShowS [LclId] = {$dShow_s83e, $dShow1_s83f} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshowList $dShow_s83e $dShow1_s83f eta_B0 eta_B1; } in let { sat_s83h [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a6ck l_a6cl a_a6cm -> GHC.Base.String [LclId] = {$dShow_s83e, $dShow1_s83f} \r [eta_B0] XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshow $dShow_s83e $dShow1_s83f eta_B0; } in let { sat_s83g [Occ=Once1] :: GHC.Types.Int -> XMonad.Layout.LayoutModifier.ModifiedLayout m_a6ck l_a6cl a_a6cm -> GHC.Show.ShowS [LclId] = {$dShow_s83e, $dShow1_s83f} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fShowModifiedLayout_$cshowsPrec $dShow_s83e $dShow1_s83f eta_B0 eta_B1; } in GHC.Show.C:Show [sat_s83g sat_s83h sat_s83i]; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cp1LayoutClass :: forall {m :: * -> *} {a} {l :: * -> *}. (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => GHC.Show.Show (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) [GblId, Arity=3, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s83j $dLayoutClass_s83k $dTypeable_s83l] let { sat_s83n [Occ=Once1, Dmd=LP(LCL(C1(L)),A,A)] :: GHC.Show.Show (l_a6da a_a6d9) [LclId] = {$dLayoutClass_s83k} \u [] XMonad.Core.$p1LayoutClass $dLayoutClass_s83k; } in let { sat_s83m [Occ=Once1, Dmd=LP(LCL(C1(L)),A,A)] :: GHC.Show.Show (m_a6d8 a_a6d9) [LclId] = {$dLayoutModifier_s83j} \u [] XMonad.Layout.LayoutModifier.$p1LayoutModifier $dLayoutModifier_s83j; } in XMonad.Layout.LayoutModifier.$fShowModifiedLayout sat_s83m sat_s83n; XMonad.Layout.LayoutModifier.$fReadModifiedLayout2 :: [GHC.Types.Char] [GblId] = {} \u [] GHC.CString.unpackCString# XMonad.Layout.LayoutModifier.$tcModifiedLayout3; XMonad.Layout.LayoutModifier.$fReadModifiedLayout_lexeme15 :: Text.Read.Lex.Lexeme [GblId, Unf=OtherCon []] = CCS_DONT_CARE Text.Read.Lex.Ident! [XMonad.Layout.LayoutModifier.$fReadModifiedLayout2]; XMonad.Layout.LayoutModifier.$fReadModifiedLayout1 :: forall {m :: * -> *} {l :: * -> *} {a}. (GHC.Read.Read (m a), GHC.Read.Read (l a)) => Text.ParserCombinators.ReadPrec.Prec -> forall b. (XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> Text.ParserCombinators.ReadP.P b) -> Text.ParserCombinators.ReadP.P b [GblId, Arity=4, Str=, Unf=OtherCon []] = {} \r [$dRead_s83o $dRead1_s83p eta_s83q eta1_s83r] let { sat_s83L [Occ=Once1] :: Text.ParserCombinators.ReadPrec.ReadPrec (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead1_s83p, $dRead_s83o} \r [c_s83s eta2_s83t] case c_s83s of { GHC.Types.I# x_s83v [Occ=Once1] -> case <=# [x_s83v 10#] of { __DEFAULT -> Text.ParserCombinators.ReadP.Fail []; 1# -> let { lvl124_s83x [Occ=OnceL1] :: Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {eta2_s83t, $dRead1_s83p, $dRead_s83o} \u [] let { lvl125_s83y [Occ=OnceL1] :: Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {eta2_s83t, $dRead1_s83p, $dRead_s83o} \u [] let { sat_s83D [Occ=Once1] :: m_a68S a_a68U -> Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {eta2_s83t, $dRead1_s83p} \r [a1_s83z] let { sat_s83C [Occ=Once1] :: l_a68T a_a68U -> Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {a1_s83z, eta2_s83t} \r [a2_s83A] let { sat_s83B [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U [LclId] = CCCS XMonad.Layout.LayoutModifier.ModifiedLayout! [a1_s83z a2_s83A]; } in eta2_s83t sat_s83B; } in GHC.Read.readPrec $dRead1_s83p XMonad.Layout.LayoutModifier.$fShowModifiedLayout2 sat_s83C; } in GHC.Read.readPrec $dRead_s83o XMonad.Layout.LayoutModifier.$fShowModifiedLayout2 sat_s83D; } in let { sat_s83G [Occ=Once1] :: Text.Read.Lex.Lexeme -> Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {lvl125_s83y} \r [a1_s83E] case Text.Read.Lex.$fEqLexeme_$c== a1_s83E XMonad.Layout.LayoutModifier.$fReadModifiedLayout_lexeme15 of { GHC.Types.False -> Text.ParserCombinators.ReadP.Fail []; GHC.Types.True -> lvl125_s83y; }; } in Text.Read.Lex.expect2 sat_s83G; } in let { k_s83H [Occ=OnceL1] :: () -> Text.ParserCombinators.ReadP.P b1_i6pQ [LclId, Arity=1, Str=, Unf=OtherCon []] = {lvl124_s83x} \r [a1_s83I] lvl124_s83x; } in let { sat_s83K [Occ=Once1] :: GHC.Base.String -> Text.ParserCombinators.ReadP.P b1_i6pQ [LclId] = {k_s83H} \r [a1_s83J] Text.ParserCombinators.ReadP.skipSpaces2 a1_s83J k_s83H; } in Text.ParserCombinators.ReadP.Look [sat_s83K]; }; }; } in GHC.Read.$fRead(,)3 sat_s83L eta_s83q eta1_s83r; XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadsPrec :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Read.Read (m a), GHC.Read.Read (l a)) => GHC.Types.Int -> Text.ParserCombinators.ReadP.ReadS (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) [GblId, Arity=3, Str=, Unf=OtherCon []] = {} \r [$dRead_s83M $dRead1_s83N eta_s83O] let { sat_s83P [Occ=Once1] :: Text.ParserCombinators.ReadP.P (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead_s83M, $dRead1_s83N, eta_s83O} \u [] XMonad.Layout.LayoutModifier.$fReadModifiedLayout1 $dRead_s83M $dRead1_s83N eta_s83O Text.ParserCombinators.ReadP.$fApplicativeP_$cpure; } in Text.ParserCombinators.ReadP.run sat_s83P; XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadListPrec :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Read.Read (m a), GHC.Read.Read (l a)) => Text.ParserCombinators.ReadPrec.ReadPrec [XMonad.Layout.LayoutModifier.ModifiedLayout m l a] [GblId, Arity=2, Str=, Unf=OtherCon []] = {} \r [$dRead_s83Q $dRead1_s83R] let { sat_s83S [Occ=Once1] :: Text.ParserCombinators.ReadPrec.ReadPrec (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead_s83Q, $dRead1_s83R} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fReadModifiedLayout1 $dRead_s83Q $dRead1_s83R eta_B0 eta_B1; } in GHC.Read.list sat_s83S; XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadList :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Read.Read (m a), GHC.Read.Read (l a)) => Text.ParserCombinators.ReadP.ReadS [XMonad.Layout.LayoutModifier.ModifiedLayout m l a] [GblId, Arity=2, Str=, Unf=OtherCon []] = {} \r [$dRead_s83T $dRead1_s83U] let { sat_s83W [Occ=Once1] :: Text.ParserCombinators.ReadP.P [XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U] [LclId] = {$dRead_s83T, $dRead1_s83U} \u [] let { sat_s83V [Occ=Once1] :: Text.ParserCombinators.ReadPrec.ReadPrec (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead_s83T, $dRead1_s83U} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fReadModifiedLayout1 $dRead_s83T $dRead1_s83U eta_B0 eta_B1; } in GHC.Read.list sat_s83V GHC.Read.$fRead()3 Text.ParserCombinators.ReadP.$fApplicativeP_$cpure; } in Text.ParserCombinators.ReadP.run sat_s83W; XMonad.Layout.LayoutModifier.$fReadModifiedLayout [InlPrag=CONLIKE] :: forall (m :: * -> *) (l :: * -> *) a. (GHC.Read.Read (m a), GHC.Read.Read (l a)) => GHC.Read.Read (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) [GblId[DFunId], Arity=2, Str=] = {} \r [$dRead_s83X $dRead1_s83Y] let { sat_s842 [Occ=Once1] :: Text.ParserCombinators.ReadPrec.ReadPrec [XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U] [LclId] = {$dRead_s83X, $dRead1_s83Y} \u [] XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadListPrec $dRead_s83X $dRead1_s83Y; } in let { sat_s841 [Occ=Once1] :: Text.ParserCombinators.ReadPrec.ReadPrec (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead_s83X, $dRead1_s83Y} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fReadModifiedLayout1 $dRead_s83X $dRead1_s83Y eta_B0 eta_B1; } in let { sat_s840 [Occ=Once1] :: Text.ParserCombinators.ReadP.ReadS [XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U] [LclId] = {$dRead_s83X, $dRead1_s83Y} \u [] XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadList $dRead_s83X $dRead1_s83Y; } in let { sat_s83Z [Occ=Once1] :: GHC.Types.Int -> Text.ParserCombinators.ReadP.ReadS (XMonad.Layout.LayoutModifier.ModifiedLayout m_a68S l_a68T a_a68U) [LclId] = {$dRead_s83X, $dRead1_s83Y} \r [eta_B0] XMonad.Layout.LayoutModifier.$fReadModifiedLayout_$creadsPrec $dRead_s83X $dRead1_s83Y eta_B0; } in GHC.Read.C:Read [sat_s83Z sat_s840 sat_s841 sat_s842]; XMonad.Layout.LayoutModifier.$dmmodifyDescription :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> l a -> GHC.Base.String [GblId, Arity=4, Str=<1P(A,A,A,A,A,A,A,A,A,A,A,1C1(L),A)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s843 $dLayoutClass_s844 m1_s845 l1_s846] case XMonad.Layout.LayoutModifier.modifierDescription $dLayoutModifier_s843 m1_s845 of { [] -> XMonad.Core.description $dLayoutClass_s844 l1_s846; : ipv_s848 [Occ=Once1] ipv1_s849 [Occ=Once1] -> let { sat_s84b [Occ=Once1, Dmd=ML] :: [GHC.Types.Char] [LclId] = {$dLayoutClass_s844, l1_s846} \s [] let { sat_s84a [Occ=Once1, Dmd=ML] :: GHC.Base.String [LclId] = {$dLayoutClass_s844, l1_s846} \s [] XMonad.Core.description $dLayoutClass_s844 l1_s846; } in GHC.CString.unpackAppendCString# lvl_r79l sat_s84a; } in GHC.Base.++_$s++ ipv_s848 ipv1_s849 sat_s84b; }; XMonad.Layout.LayoutModifier.$dmmodifierDescription :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> GHC.Base.String [GblId, Arity=2, Str=, Cpr=1, Unf=OtherCon []] = {} \r [$dLayoutModifier_s84c ds_s84d] [] []; XMonad.Layout.LayoutModifier.$dmunhook :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.X () [GblId, Arity=5, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = {} \r [$dLayoutModifier_s84e ds_s84f eta1_s84g eta2_s84h void_0E] let { sat_s84j [Occ=Once1] :: ((), XMonad.Core.XState) [LclId] = CCCS (,)! [GHC.Tuple.() eta2_s84h]; } in Solo# [sat_s84j]; XMonad.Layout.LayoutModifier.$dmhook1 :: forall {m :: * -> *} {a}. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.XConf -> XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, ((), XMonad.Core.XState) #) [GblId, Arity=5, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = {} \r [$dLayoutModifier_s84k ds_s84l eta1_s84m eta2_s84n void_0E] let { sat_s84p [Occ=Once1] :: ((), XMonad.Core.XState) [LclId] = CCCS (,)! [GHC.Tuple.() eta2_s84n]; } in Solo# [sat_s84p]; XMonad.Layout.LayoutModifier.$dmhook :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.X () [GblId, Arity=5, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = {} \r [eta_B0 eta_B1 eta_B2 eta_B3 void_0E] XMonad.Layout.LayoutModifier.$dmhook1 eta_B0 eta_B1 eta_B2 eta_B3 GHC.Prim.void#; XMonad.Layout.LayoutModifier.$dmpureModifier :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a)) [GblId, Arity=5, Str=, Cpr=1(, 1), Unf=OtherCon []] = {} \r [$dLayoutModifier_s84q ds_s84r ds1_s84s ds2_s84t wrs_s84u] (,) [wrs_s84u GHC.Maybe.Nothing]; XMonad.Layout.LayoutModifier.$dmredoLayout :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a)) [GblId, Arity=5, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s84v m1_s84w r_s84x ms_s84y wrs_s84z] let { eta_s84A [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,MP(A,ML)))))] :: XMonad.Core.X () [LclId] = {$dLayoutModifier_s84v, m1_s84w} \u [] XMonad.Layout.LayoutModifier.hook $dLayoutModifier_s84v m1_s84w; } in let { eta1_s84B [Occ=OnceL1] :: ([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = {$dLayoutModifier_s84v, m1_s84w, r_s84x, ms_s84y, wrs_s84z} \u [] XMonad.Layout.LayoutModifier.pureModifier $dLayoutModifier_s84v m1_s84w r_s84x ms_s84y wrs_s84z; } in let { sat_s84P [Occ=Once1] :: XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO ([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = {eta1_s84B, eta_s84A} \r [eta2_s84C] let { eta4_s84D [Occ=OnceL1, Dmd=LCL(C1(P(L,MP(A,ML))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO () [LclId] = {eta2_s84C, eta_s84A} \u [] eta_s84A eta2_s84C; } in let { sat_s84O [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m_a54L a_a54M)), XMonad.Core.XState) #) [LclId] = {eta1_s84B, eta4_s84D} \r [eta6_s84E void_0E] case eta4_s84D eta6_s84E GHC.Prim.void# of { Solo# ipv1_s84I [Occ=Once1!] -> let { sat_s84M [Occ=Once1] :: XMonad.Core.XState [LclId] = {ipv1_s84I} \u [] case ipv1_s84I of { (,) _ [Occ=Dead] s'_s84L [Occ=Once1] -> s'_s84L; }; } in let { sat_s84N [Occ=Once1] :: (([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m_a54L a_a54M)), XMonad.Core.XState) [LclId] = CCCS (,)! [eta1_s84B sat_s84M]; } in Solo# [sat_s84N]; }; } in sat_s84O; } in sat_s84P; XMonad.Layout.LayoutModifier.$dmpureMess :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> GHC.Maybe.Maybe (m a) [GblId, Arity=3, Str=, Cpr=1, Unf=OtherCon []] = {} \r [$dLayoutModifier_s84Q ds_s84R ds1_s84S] GHC.Maybe.Nothing []; XMonad.Layout.LayoutModifier.$dmhandleMessOrMaybeModifyIt :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (Data.Either.Either (m a) XMonad.Core.SomeMessage)) [GblId, Arity=3, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s84T m1_s84U mess_s84V] let { m2_s84W [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,LP(ML,ML)))))] :: XMonad.Core.X (GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = {$dLayoutModifier_s84T, m1_s84U, mess_s84V} \u [] XMonad.Layout.LayoutModifier.handleMess $dLayoutModifier_s84T m1_s84U mess_s84V; } in let { sat_s85h [Occ=Once1] :: XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (GHC.Maybe.Maybe (Data.Either.Either (m_a54L a_a54M) XMonad.Core.SomeMessage)) [LclId] = {m2_s84W} \r [r1_s84X] let { m3_s84Y [Occ=OnceL1, Dmd=LCL(C1(P(L,LP(ML,ML))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = {r1_s84X, m2_s84W} \u [] m2_s84W r1_s84X; } in let { sat_s85g [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe (Data.Either.Either (m_a54L a_a54M) XMonad.Core.SomeMessage), XMonad.Core.XState) #) [LclId] = {m3_s84Y} \r [s1_s84Z void_0E] case m3_s84Y s1_s84Z GHC.Prim.void# of { Solo# ipv1_s853 -> let { sat_s85e [Occ=Once1] :: XMonad.Core.XState [LclId] = {ipv1_s853} \u [] case ipv1_s853 of { (,) _ [Occ=Dead] s'_s85d [Occ=Once1] -> s'_s85d; }; } in let { sat_s85a [Occ=Once1] :: GHC.Maybe.Maybe (Data.Either.Either (m_a54L a_a54M) XMonad.Core.SomeMessage) [LclId] = {ipv1_s853} \u [] case ipv1_s853 of { (,) a1_s855 [Occ=Once1!] _ [Occ=Dead] -> case a1_s855 of { GHC.Maybe.Nothing -> GHC.Maybe.Nothing []; GHC.Maybe.Just a2_s858 [Occ=Once1] -> let { sat_s859 [Occ=Once1] :: Data.Either.Either (m_a54L a_a54M) XMonad.Core.SomeMessage [LclId] = CCCS Data.Either.Left! [a2_s858]; } in GHC.Maybe.Just [sat_s859]; }; }; } in let { sat_s85f [Occ=Once1] :: (GHC.Maybe.Maybe (Data.Either.Either (m_a54L a_a54M) XMonad.Core.SomeMessage), XMonad.Core.XState) [LclId] = CCCS (,)! [sat_s85a sat_s85e]; } in Solo# [sat_s85f]; }; } in sat_s85g; } in sat_s85h; XMonad.Layout.LayoutModifier.$dmhandleMess :: forall (m :: * -> *) a. XMonad.Layout.LayoutModifier.LayoutModifier m a => m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (m a)) [GblId, Arity=3, Str=<1P(SL,L)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s85i m1_s85j mess_s85k] case mess_s85k of wild_s85l [Occ=Once2] { XMonad.Core.SomeMessage $dMessage1_s85m m2_s85n -> let { eta_s85o [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,MP(A,ML)))))] :: XMonad.Core.X () [LclId] = {$dLayoutModifier_s85i, m1_s85j} \u [] XMonad.Layout.LayoutModifier.unhook $dLayoutModifier_s85i m1_s85j; } in let { doUnhook_s85p [Dmd=ML] :: forall {a2}. XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (GHC.Maybe.Maybe a2) [LclId, Arity=1, Str=, Unf=OtherCon []] = {eta_s85o} \r [eta2_s85q] let { eta4_s85r [Occ=OnceL1, Dmd=LCL(C1(P(L,MP(A,ML))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO () [LclId] = {eta2_s85q, eta_s85o} \u [] eta_s85o eta2_s85q; } in let { sat_s85C [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe a2_a5qs, XMonad.Core.XState) #) [LclId] = {eta4_s85r} \r [eta6_s85s void_0E] case eta4_s85r eta6_s85s GHC.Prim.void# of { Solo# ipv1_s85w [Occ=Once1!] -> let { sat_s85A [Occ=Once1] :: XMonad.Core.XState [LclId] = {ipv1_s85w} \u [] case ipv1_s85w of { (,) _ [Occ=Dead] s'_s85z [Occ=Once1] -> s'_s85z; }; } in let { sat_s85B [Occ=Once1] :: (GHC.Maybe.Maybe a2_a5qs, XMonad.Core.XState) [LclId] = CCCS (,)! [GHC.Maybe.Nothing sat_s85A]; } in Solo# [sat_s85B]; }; } in sat_s85C; } in let-no-escape { fail_s85D [Occ=Once2!T[1], Dmd=MCM(L)] :: (# #) -> XMonad.Core.X (GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId[JoinId(1)(Nothing)], Arity=1, Str=, Unf=OtherCon []] = {$dLayoutModifier_s85i, m1_s85j, wild_s85l, doUnhook_s85p, m2_s85n, $dMessage1_s85m} \r [void_0E] case Data.Typeable.Internal.sameTypeRep $dMessage1_s85m XMonad.Core.$fMessageLayoutMessages1 of { GHC.Types.False -> let { eta1_s85G [Occ=OnceL1] :: GHC.Maybe.Maybe (m_a54L a_a54M) [LclId] = {$dLayoutModifier_s85i, m1_s85j, wild_s85l} \u [] XMonad.Layout.LayoutModifier.pureMess $dLayoutModifier_s85i m1_s85j wild_s85l; } in let { sat_s85L [Occ=Once1] :: XMonad.Core.XConf -> XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe (m_a54L a_a54M), XMonad.Core.XState) #) [LclId] = {eta1_s85G} \r [eta2_s85H eta3_s85I void_XF] let { sat_s85K [Occ=Once1] :: (GHC.Maybe.Maybe (m_a54L a_a54M), XMonad.Core.XState) [LclId] = CCCS (,)! [eta1_s85G eta3_s85I]; } in Solo# [sat_s85K]; } in sat_s85L; GHC.Types.True -> case m2_s85n of { XMonad.Core.Hide -> let { eta1_s85N [Occ=OnceL1] :: GHC.Maybe.Maybe (m_a54L a_a54M) [LclId] = {$dLayoutModifier_s85i, m1_s85j, wild_s85l} \u [] XMonad.Layout.LayoutModifier.pureMess $dLayoutModifier_s85i m1_s85j wild_s85l; } in let { sat_s85S [Occ=Once1] :: XMonad.Core.XConf -> XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (GHC.Maybe.Maybe (m_a54L a_a54M), XMonad.Core.XState) #) [LclId] = {eta1_s85N} \r [eta2_s85O eta3_s85P void_XF] let { sat_s85R [Occ=Once1] :: (GHC.Maybe.Maybe (m_a54L a_a54M), XMonad.Core.XState) [LclId] = CCCS (,)! [eta1_s85N eta3_s85P]; } in Solo# [sat_s85R]; } in sat_s85S; XMonad.Core.ReleaseResources -> doUnhook_s85p; }; }; } in case Data.Typeable.Internal.sameTypeRep $dMessage1_s85m XMonad.Core.$fMessageLayoutMessages1 of { GHC.Types.False -> fail_s85D GHC.Prim.(##); GHC.Types.True -> case m2_s85n of { XMonad.Core.Hide -> doUnhook_s85p; XMonad.Core.ReleaseResources -> fail_s85D GHC.Prim.(##); }; }; }; XMonad.Layout.LayoutModifier.$dmmodifyLayoutWithUpdate :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X (([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a)), GHC.Maybe.Maybe (m a)) [GblId, Arity=5, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s85V $dLayoutClass_s85W m1_s85X w_s85Y r_s85Z] let { eta_s860 [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,LP(ML,ML)))))] :: XMonad.Core.X ([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)) [LclId] = {$dLayoutModifier_s85V, $dLayoutClass_s85W, m1_s85X, w_s85Y, r_s85Z} \u [] XMonad.Layout.LayoutModifier.modifyLayout $dLayoutModifier_s85V $dLayoutClass_s85W m1_s85X w_s85Y r_s85Z; } in let { sat_s86j [Occ=Once1] :: XMonad.Core.XConf -> Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO (([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)), GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = {eta_s860} \r [eta1_s861] let { m2_s862 [Occ=OnceL1, Dmd=LCL(C1(P(L,LP(ML,ML))))] :: Control.Monad.Trans.State.Lazy.StateT XMonad.Core.XState GHC.Types.IO ([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)) [LclId] = {eta1_s861, eta_s860} \u [] eta_s860 eta1_s861; } in let { sat_s86i [Occ=Once1] :: XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, ((([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)), GHC.Maybe.Maybe (m_a54L a_a54M)), XMonad.Core.XState) #) [LclId] = {m2_s862} \r [s1_s863 void_0E] case m2_s862 s1_s863 GHC.Prim.void# of { Solo# ipv1_s867 -> let { sat_s86g [Occ=Once1] :: XMonad.Core.XState [LclId] = {ipv1_s867} \u [] case ipv1_s867 of { (,) _ [Occ=Dead] s'_s86f [Occ=Once1] -> s'_s86f; }; } in let { sat_s86b [Occ=Once1] :: ([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)) [LclId] = {ipv1_s867} \u [] case ipv1_s867 of { (,) a1_s869 [Occ=Once1] _ [Occ=Dead] -> a1_s869; }; } in let { sat_s86c [Occ=Once1] :: (([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)), GHC.Maybe.Maybe (m_a54L a_a54M)) [LclId] = CCCS (,)! [sat_s86b GHC.Maybe.Nothing]; } in let { sat_s86h [Occ=Once1] :: ((([(a_a54M, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l_a5pJ a_a54M)), GHC.Maybe.Maybe (m_a54L a_a54M)), XMonad.Core.XState) [LclId] = CCCS (,)! [sat_s86c sat_s86g]; } in Solo# [sat_s86h]; }; } in sat_s86i; } in sat_s86j; XMonad.Layout.LayoutModifier.$dmmodifyLayout :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a) => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a)) [GblId, Arity=3, Str=<1P(A,A,1L,A,A,A,A,A,A)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s86k $dLayoutClass_s86l ds_s86m] XMonad.Core.runLayout $dLayoutClass_s86l; XMonad.Layout.LayoutModifier.$trModule3 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TrNameS! [XMonad.Layout.LayoutModifier.$trModule4]; XMonad.Layout.LayoutModifier.$trModule1 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TrNameS! [XMonad.Layout.LayoutModifier.$trModule2]; XMonad.Layout.LayoutModifier.$trModule :: GHC.Types.Module [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.Module! [XMonad.Layout.LayoutModifier.$trModule3 XMonad.Layout.LayoutModifier.$trModule1]; $krep_r79m :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepTyConApp! [GHC.Types.$tcConstraint GHC.Types.[]]; $krep1_r79n :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [GHC.Types.krep$* $krep_r79m]; XMonad.Layout.LayoutModifier.$tcLayoutModifier1 [InlPrag=[~]] :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [GHC.Types.krep$*Arr* $krep1_r79n]; $krep2_r79o :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [GHC.Types.krep$*Arr* GHC.Types.krep$*Arr*]; XMonad.Layout.LayoutModifier.$tcModifiedLayout1 [InlPrag=[~]] :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [GHC.Types.krep$*Arr* $krep2_r79o]; $krep3_r79p :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepVar! [2#]; $krep4_r79q :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepVar! [1#]; $krep5_r79r :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepApp! [$krep4_r79q $krep3_r79p]; $krep6_r79s :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepVar! [0#]; $krep7_r79t :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepApp! [$krep6_r79s $krep3_r79p]; XMonad.Layout.LayoutModifier.$tcLayoutModifier2 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TrNameS! [XMonad.Layout.LayoutModifier.$tcLayoutModifier3]; XMonad.Layout.LayoutModifier.$tcLayoutModifier :: GHC.Types.TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TyCon! [13906852259647939033##64 11321741631731544716##64 XMonad.Layout.LayoutModifier.$trModule XMonad.Layout.LayoutModifier.$tcLayoutModifier2 0# XMonad.Layout.LayoutModifier.$tcLayoutModifier1]; XMonad.Layout.LayoutModifier.$tcModifiedLayout2 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TrNameS! [XMonad.Layout.LayoutModifier.$tcModifiedLayout3]; XMonad.Layout.LayoutModifier.$tcModifiedLayout :: GHC.Types.TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TyCon! [834223827622634822##64 17987029454211372227##64 XMonad.Layout.LayoutModifier.$trModule XMonad.Layout.LayoutModifier.$tcModifiedLayout2 0# XMonad.Layout.LayoutModifier.$tcModifiedLayout1]; $krep8_r79u :: [GHC.Types.KindRep] [GblId, Unf=OtherCon []] = CCS_DONT_CARE :! [$krep3_r79p GHC.Types.[]]; $krep9_r79v :: [GHC.Types.KindRep] [GblId, Unf=OtherCon []] = CCS_DONT_CARE :! [$krep4_r79q $krep8_r79u]; $krep10_r79w :: [GHC.Types.KindRep] [GblId, Unf=OtherCon []] = CCS_DONT_CARE :! [$krep6_r79s $krep9_r79v]; $krep11_r79x :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepTyConApp! [XMonad.Layout.LayoutModifier.$tcModifiedLayout $krep10_r79w]; $krep12_r79y :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [$krep5_r79r $krep11_r79x]; XMonad.Layout.LayoutModifier.$tc'ModifiedLayout1 [InlPrag=[~]] :: GHC.Types.KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.KindRepFun! [$krep7_r79t $krep12_r79y]; XMonad.Layout.LayoutModifier.$tc'ModifiedLayout2 :: GHC.Types.TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TrNameS! [XMonad.Layout.LayoutModifier.$tc'ModifiedLayout3]; XMonad.Layout.LayoutModifier.$tc'ModifiedLayout :: GHC.Types.TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE GHC.Types.TyCon! [15921517588708234291##64 17064943841429469184##64 XMonad.Layout.LayoutModifier.$trModule XMonad.Layout.LayoutModifier.$tc'ModifiedLayout2 3# XMonad.Layout.LayoutModifier.$tc'ModifiedLayout1]; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta2 :: Data.Typeable.Internal.TypeRep XMonad.Layout.LayoutModifier.ModifiedLayout [GblId] = {} \u [] Data.Typeable.Internal.mkTrCon XMonad.Layout.LayoutModifier.$tcModifiedLayout GHC.Types.[]; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta1 :: forall {m :: * -> *} {a} {l :: * -> *}. (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => Data.Typeable.Internal.TypeRep (XMonad.Layout.LayoutModifier.ModifiedLayout m l) [GblId, Arity=3, Str=<1P(A,1L,A,A,A,A,A,A,A)>, Unf=OtherCon []] = {} \r [$dLayoutModifier_s86n $dLayoutClass_s86o $dTypeable_s86p] case XMonad.Core.$p2LayoutClass $dLayoutClass_s86o of sat_s86r [Occ=Once1] { __DEFAULT -> case Data.Typeable.Internal.mkTrApp XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta2 $dTypeable_s86p of sat_s86q [Occ=Once1] { __DEFAULT -> Data.Typeable.Internal.mkTrApp sat_s86q sat_s86r; }; }; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cdoLayout :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.StackSet.Stack a -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId, Arity=6, Str=, Unf=OtherCon []] = {} \r [$dLayoutModifier_s86s $dLayoutClass_s86t $dTypeable_s86u l1_s86v r_s86w s_s86x] let { eta_s86y [Occ=OnceL1] :: a_a6d9 [LclId] = {s_s86x} \u [] case s_s86x of { XMonad.StackSet.Stack ds9_s86A [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] -> ds9_s86A; }; } in let { eta1_s86D [Occ=OnceL1] :: (a_a6d9, Graphics.X11.Xlib.Types.Rectangle) [LclId, Unf=OtherCon []] = CCCS (,)! [eta_s86y r_s86w]; } in let { eta2_s86E [Occ=OnceL1] :: [(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)] [LclId, Unf=OtherCon []] = CCCS :! [eta1_s86D GHC.Types.[]]; } in let { eta3_s86F [Occ=OnceL1] :: ([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)) [LclId, Unf=OtherCon []] = CCCS (,)! [eta2_s86E GHC.Maybe.Nothing]; } in let { sat_s86K [Occ=Once1] :: XMonad.Core.XConf -> XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)), XMonad.Core.XState) #) [LclId] = {eta3_s86F} \r [eta4_s86G eta5_s86H void_0E] let { sat_s86J [Occ=Once1] :: (([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)), XMonad.Core.XState) [LclId] = CCCS (,)! [eta3_s86F eta5_s86H]; } in Solo# [sat_s86J]; } in sat_s86K; lvl1_r79z :: forall {l :: * -> *} {m :: * -> *} {a}. XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.StackSet.Stack a -> [(a, Graphics.X11.Xlib.Types.Rectangle)] [GblId, Arity=3, Str=, Unf=OtherCon []] = {} \r [ds_s86L r_s86M s_s86N] let { sat_s86S [Occ=Once1] :: a_a6d9 [LclId] = {s_s86N} \u [] case s_s86N of { XMonad.StackSet.Stack ds9_s86P [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] -> ds9_s86P; }; } in let { sat_s86T [Occ=Once1] :: (a_a6d9, Graphics.X11.Xlib.Types.Rectangle) [LclId] = CCCS (,)! [sat_s86S r_s86M]; } in : [sat_s86T GHC.Types.[]]; lvl2_r79A :: forall {a} {l :: * -> *} {m :: * -> *}. ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)) [GblId, Unf=OtherCon []] = CCS_DONT_CARE (,)! [GHC.Types.[] GHC.Maybe.Nothing]; lvl3_r79B :: forall {a} {l :: * -> *} {m :: * -> *}. XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.XConf -> XMonad.Core.XState -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, (([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a)), XMonad.Core.XState) #) [GblId, Arity=5, Str=, Cpr=1(, 1(1(1, 1),)), Unf=OtherCon []] = {} \r [ds_s86U ds1_s86V eta_s86W eta1_s86X void_0E] let { sat_s86Z [Occ=Once1] :: (([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)), XMonad.Core.XState) [LclId] = CCCS (,)! [lvl2_r79A eta1_s86X]; } in Solo# [sat_s86Z]; lvl4_r79C :: forall {a} {l :: * -> *} {m :: * -> *}. XMonad.Layout.LayoutModifier.ModifiedLayout m l a -> XMonad.Core.SomeMessage -> GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m l a) [GblId, Arity=2, Str=, Cpr=1, Unf=OtherCon []] = {} \r [ds_s870 ds1_s871] GHC.Maybe.Nothing []; XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta [InlPrag=CONLIKE] :: forall (m :: * -> *) a (l :: * -> *). (XMonad.Layout.LayoutModifier.LayoutModifier m a, XMonad.Core.LayoutClass l a, Data.Typeable.Internal.Typeable m) => XMonad.Core.LayoutClass (XMonad.Layout.LayoutModifier.ModifiedLayout m l) a [GblId[DFunId], Arity=3, Str=] = {} \r [$dLayoutModifier_s872 $dLayoutClass_s873 $dTypeable_s874] let { sat_s87a [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9 -> GHC.Base.String [LclId] = {$dLayoutModifier_s872, $dLayoutClass_s873, $dTypeable_s874} \r [eta_B0] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cdescription $dLayoutModifier_s872 $dLayoutClass_s873 $dTypeable_s874 eta_B0; } in let { sat_s879 [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9 -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)) [LclId] = {$dLayoutModifier_s872, $dLayoutClass_s873, $dTypeable_s874} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$chandleMessage $dLayoutModifier_s872 $dLayoutClass_s873 $dTypeable_s874 eta_B0 eta_B1; } in let { sat_s878 [Occ=Once1] :: XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9 -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.StackSet.Stack a_a6d9 -> XMonad.Core.X ([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)) [LclId] = {$dLayoutModifier_s872, $dLayoutClass_s873, $dTypeable_s874} \r [eta_B0 eta_B1 eta_B2] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cdoLayout $dLayoutModifier_s872 $dLayoutClass_s873 $dTypeable_s874 eta_B0 eta_B1 eta_B2; } in let { sat_s877 [Occ=Once1] :: XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9) a_a6d9 -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a_a6d9, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9)) [LclId] = {$dLayoutModifier_s872, $dLayoutClass_s873, $dTypeable_s874} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$crunLayout $dLayoutModifier_s872 $dLayoutClass_s873 $dTypeable_s874 eta_B0 eta_B1; } in let { sat_s876 [Occ=Once1] :: Data.Typeable.Internal.Typeable (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da) [LclId] = {$dLayoutModifier_s872, $dLayoutClass_s873, $dTypeable_s874} \u [] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta1 $dLayoutModifier_s872 $dLayoutClass_s873 $dTypeable_s874; } in let { sat_s875 [Occ=Once1] :: GHC.Show.Show (XMonad.Layout.LayoutModifier.ModifiedLayout m_a6d8 l_a6da a_a6d9) [LclId] = {$dLayoutModifier_s872, $dLayoutClass_s873, $dTypeable_s874} \u [] XMonad.Layout.LayoutModifier.$fLayoutClassModifiedLayouta_$cp1LayoutClass $dLayoutModifier_s872 $dLayoutClass_s873 $dTypeable_s874; } in XMonad.Core.C:LayoutClass [sat_s875 sat_s876 sat_s877 sat_s878 lvl1_r79z lvl3_r79B sat_s879 lvl4_r79C sat_s87a]; XMonad.Layout.LayoutModifier.ModifiedLayout [InlPrag=CONLIKE] :: forall (m :: * -> *) (l :: * -> *) a. m a %1 -> l a %1 -> XMonad.Layout.LayoutModifier.ModifiedLayout m l a [GblId[DataCon], Arity=2, Caf=NoCafRefs, Unf=OtherCon []] = {} \r [eta_B0 eta_B1] XMonad.Layout.LayoutModifier.ModifiedLayout [eta_B0 eta_B1]; XMonad.Layout.LayoutModifier.C:LayoutModifier [InlPrag=CONLIKE] :: forall (m :: * -> *) a. GHC.Show.Show (m a) -> GHC.Read.Read (m a) -> (forall (l :: * -> *). XMonad.Core.LayoutClass l a => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a))) -> (forall (l :: * -> *). XMonad.Core.LayoutClass l a => m a -> XMonad.StackSet.Workspace XMonad.Core.WorkspaceId (l a) a -> Graphics.X11.Xlib.Types.Rectangle -> XMonad.Core.X (([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (l a)), GHC.Maybe.Maybe (m a))) -> (m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (m a))) -> (m a -> XMonad.Core.SomeMessage -> XMonad.Core.X (GHC.Maybe.Maybe (Data.Either.Either (m a) XMonad.Core.SomeMessage))) -> (m a -> XMonad.Core.SomeMessage -> GHC.Maybe.Maybe (m a)) -> (m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> XMonad.Core.X ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a))) -> (m a -> Graphics.X11.Xlib.Types.Rectangle -> GHC.Maybe.Maybe (XMonad.StackSet.Stack a) -> [(a, Graphics.X11.Xlib.Types.Rectangle)] -> ([(a, Graphics.X11.Xlib.Types.Rectangle)], GHC.Maybe.Maybe (m a))) -> (m a -> XMonad.Core.X ()) -> (m a -> XMonad.Core.X ()) -> (m a -> GHC.Base.String) -> (forall (l :: * -> *). XMonad.Core.LayoutClass l a => m a -> l a -> GHC.Base.String) -> XMonad.Layout.LayoutModifier.LayoutModifier m a [GblId[DataCon], Arity=13, Caf=NoCafRefs, Unf=OtherCon []] = {} \r [eta_B0 eta_B1 eta_B2 eta_B3 eta_B4 eta_B5 eta_B6 eta_B7 eta_B8 eta_B9 eta_Ba eta_Bb eta_Bc] XMonad.Layout.LayoutModifier.C:LayoutModifier [eta_B0 eta_B1 eta_B2 eta_B3 eta_B4 eta_B5 eta_B6 eta_B7 eta_B8 eta_B9 eta_Ba eta_Bb eta_Bc]; [ 56 of 308] Compiling XMonad.Layout.LimitWindows ( XMonad/Layout/LimitWindows.hs, /data/builds/head.hackage/xmonad-contrib-0.17.1/dist-newstyle/build/x86_64-linux/ghc-9.4.7/xmonad-contrib-0.17.1/build/XMonad/Layout/LimitWindows.o, /data/builds/head.hackage/xmonad-contrib-0.17.1/dist-newstyle/build/x86_64-linux/ghc-9.4.7/xmonad-contrib-0.17.1/build/XMonad/Layout/LimitWindows.dyn_o ) : error: panic! (the 'impossible' happened) GHC version 9.4.7: ASSERT failed! Missmatched con arg and con rep strictness lengths: ConHide is applied to [(False, ww3_sapo)] But seems to have arity0 Call stack: CallStack (from HasCallStack): assertPpr, called at compiler/GHC/Stg/InferTags/Rewrite.hs:524:9 in ghc:GHC.Stg.InferTags.Rewrite Please report this as a GHC bug: https://www.haskell.org/ghc/reportabug Error: cabal: Failed to build xmonad-contrib-0.17.1.