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] [ 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 ) *** Stg Lint ErrMsgs: in Unarise *** : warning: [RHS of eta1_sapl :: Maybe (LimitWindows a_sa7J)] Constructor applied to incorrect number of arguments: Application:Hide [ww3_sapo] *** Offending Program *** $trModule4 :: Addr# [GblId, Unf=OtherCon []] = "xmonad-contrib-0.17.1-inplace"#; $trModule3 :: TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE TrNameS! [$trModule4]; $trModule2 :: Addr# [GblId, Unf=OtherCon []] = "XMonad.Layout.LimitWindows"#; $trModule1 :: TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE TrNameS! [$trModule2]; $trModule :: Module [GblId, Unf=OtherCon []] = CCS_DONT_CARE Module! [$trModule3 $trModule1]; $tcLimitChange2 :: Addr# [GblId, Unf=OtherCon []] = "LimitChange"#; $tcLimitChange1 :: TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE TrNameS! [$tcLimitChange2]; $tcLimitChange :: TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE TyCon! [17255676052845757883##64 9629273595478275117##64 $trModule $tcLimitChange1 0# krep$*]; $fLayoutModifierLimitWindowsa3 :: TypeRep LimitChange [GblId] = \u [] mkTrCon $tcLimitChange []; $fReadLimitWindows16 :: Addr# [GblId, Unf=OtherCon []] = "FirstN"#; $fReadLimitWindows12 :: Addr# [GblId, Unf=OtherCon []] = "Slice"#; $fShowSliceStyle_$cshowsPrec :: Int -> SliceStyle -> ShowS [GblId, Arity=3, Str=<1L>, Unf=OtherCon []] = \r [ds3_sacr ds4_sacs eta_sact] case ds4_sacs of { FirstN -> unpackAppendCString# $fReadLimitWindows16 eta_sact; Slice -> unpackAppendCString# $fReadLimitWindows12 eta_sact; }; $fShowSliceStyle1 :: SliceStyle -> ShowS [GblId, Arity=2, Str=<1L>, Unf=OtherCon []] = \r [ds3_sacv eta_sacw] case ds3_sacv of { FirstN -> unpackAppendCString# $fReadLimitWindows16 eta_sacw; Slice -> unpackAppendCString# $fReadLimitWindows12 eta_sacw; }; $fShowSliceStyle_$cshowList :: [SliceStyle] -> ShowS [GblId, Arity=2, Str=<1L>, Unf=OtherCon []] = \r [ls_sacy s_sacz] showList__ $fShowSliceStyle1 ls_sacy s_sacz; $fReadLimitWindows15 :: [Char] [GblId] = \u [] unpackCString# $fReadLimitWindows16; $fReadLimitWindows11 :: [Char] [GblId] = \u [] unpackCString# $fReadLimitWindows12; $fShowSliceStyle_$cshow :: SliceStyle -> String [GblId, Arity=1, Str=<1L>, Unf=OtherCon []] = \r [x_sacA] case x_sacA of { FirstN -> $fReadLimitWindows15; Slice -> $fReadLimitWindows11; }; $fShowSliceStyle [InlPrag=CONLIKE] :: Show SliceStyle [GblId[DFunId]] = CCS_DONT_CARE C:Show! [$fShowSliceStyle_$cshowsPrec $fShowSliceStyle_$cshow $fShowSliceStyle_$cshowList]; $fReadLimitWindows14 :: Prec -> forall {b}. (SliceStyle -> P b) -> P b [GblId, Arity=2, Str=<1C1(L)>, Unf=OtherCon []] = \r [ds3_sacC k_sacD] k_sacD FirstN; $fReadLimitWindows13 :: ([Char], ReadPrec SliceStyle) [GblId, Unf=OtherCon []] = CCS_DONT_CARE (,)! [$fReadLimitWindows15 $fReadLimitWindows14]; $fReadLimitWindows10 :: Prec -> forall {b}. (SliceStyle -> P b) -> P b [GblId, Arity=2, Str=<1C1(L)>, Unf=OtherCon []] = \r [ds3_sacE k_sacF] k_sacF Slice; $fReadLimitWindows9 :: ([Char], ReadPrec SliceStyle) [GblId, Unf=OtherCon []] = CCS_DONT_CARE (,)! [$fReadLimitWindows11 $fReadLimitWindows10]; $fReadLimitWindows8 :: [(String, ReadPrec SliceStyle)] [GblId, Unf=OtherCon []] = CCS_DONT_CARE :! [$fReadLimitWindows9 []]; $fReadLimitWindows7 :: [(String, ReadPrec SliceStyle)] [GblId, Unf=OtherCon []] = CCS_DONT_CARE :! [$fReadLimitWindows13 $fReadLimitWindows8]; $fReadLimitWindows6 :: Prec -> ReadP SliceStyle [GblId, Arity=1, Str=, Unf=OtherCon []] = \r [eta_B0] choose1 $fReadLimitWindows7 eta_B0; $fReadSliceStyle1 :: Prec -> forall b. (SliceStyle -> P b) -> P b [GblId, Arity=2, Str=, Unf=OtherCon []] = \r [eta_B0 eta_B1] $fRead(,)3 $fReadLimitWindows6 eta_B0 eta_B1; $fReadSliceStyle_$creadsPrec :: Int -> ReadS SliceStyle [GblId, Arity=1, Str=, Unf=OtherCon []] = \r [eta_sacG] let { sat_sacH [Occ=Once1] :: P SliceStyle [LclId] = \u [] $fRead(,)3 $fReadLimitWindows6 eta_sacG $fApplicativeP_$cpure; } in run sat_sacH; $fReadSliceStyle_$creadListPrec :: ReadPrec [SliceStyle] [GblId] = \u [] list $fReadSliceStyle1; $fReadSliceStyle2 :: P [SliceStyle] [GblId] = \u [] $fReadSliceStyle_$creadListPrec $fRead()3 $fApplicativeP_$cpure; $fReadSliceStyle_$creadList :: ReadS [SliceStyle] [GblId, Arity=1, Str=, Unf=OtherCon []] = \r [eta_B0] run $fReadSliceStyle2 eta_B0; $fReadSliceStyle [InlPrag=CONLIKE] :: Read SliceStyle [GblId[DFunId]] = CCS_DONT_CARE C:Read! [$fReadSliceStyle_$creadsPrec $fReadSliceStyle_$creadList $fReadSliceStyle1 $fReadSliceStyle_$creadListPrec]; $fReadLimitWindows4 :: Addr# [GblId, Unf=OtherCon []] = "LimitWindows"#; $fReadLimitWindows3 :: [Char] [GblId] = \u [] unpackCString# $fReadLimitWindows4; $fReadLimitWindows_lexeme15 :: Lexeme [GblId, Unf=OtherCon []] = CCS_DONT_CARE Ident! [$fReadLimitWindows3]; $fReadLimitWindows5 :: Int [GblId, Unf=OtherCon []] = CCS_DONT_CARE I#! [11#]; $w$creadPrec [InlPrag=[2]] :: forall {a}. Int# -> forall {b}. (LimitWindows a -> P b) -> P b [GblId, Arity=2, Str=, Unf=OtherCon []] = \r [ww_sacI eta_sacJ] case <=# [ww_sacI 10#] of { __DEFAULT -> Fail []; 1# -> let { lvl124_sacL [Occ=OnceL1] :: P b_s9Z4 [LclId] = \u [] let { lvl125_sacM [Occ=OnceL1] :: P b_s9Z4 [LclId] = \u [] let { sat_sacR [Occ=Once1] :: SliceStyle -> P b_s9Z4 [LclId] = \r [a1_sacN] let { sat_sacQ [Occ=Once1] :: Int -> P b_s9Z4 [LclId] = \r [a2_sacO] let { sat_sacP [Occ=Once1] :: LimitWindows a_s9YZ [LclId] = CCCS LimitWindows! [a1_sacN a2_sacO]; } in eta_sacJ sat_sacP; } in $fReadInt1 $fReadLimitWindows5 sat_sacQ; } in $fRead(,)3 $fReadLimitWindows6 $fReadLimitWindows5 sat_sacR; } in let { sat_sacU [Occ=Once1] :: Lexeme -> P b_s9Z4 [LclId] = \r [a1_sacS] case $fEqLexeme_$c== a1_sacS $fReadLimitWindows_lexeme15 of { False -> Fail []; True -> lvl125_sacM; }; } in expect2 sat_sacU; } in let { k_sacV [Occ=OnceL1] :: () -> P b_s9Z4 [LclId, Arity=1, Str=, Unf=OtherCon []] = \r [a1_sacW] lvl124_sacL; } in let { sat_sacY [Occ=Once1] :: String -> P b_s9Z4 [LclId] = \r [a1_sacX] skipSpaces2 a1_sacX k_sacV; } in Look [sat_sacY]; }; $fReadLimitWindows2 [InlPrag=[2]] :: forall {a}. Prec -> forall b. (LimitWindows a -> P b) -> P b [GblId, Arity=2, Str=<1!P(L)>, Unf=OtherCon []] = \r [c_sacZ eta_sad0] case c_sacZ of { I# ww_sad2 [Occ=Once1] -> $w$creadPrec ww_sad2 eta_sad0; }; $fReadLimitWindows1 :: forall {a}. Prec -> forall b. (LimitWindows a -> P b) -> P b [GblId, Arity=2, Str=, Unf=OtherCon []] = \r [eta_B0 eta_B1] $fRead(,)3 $fReadLimitWindows2 eta_B0 eta_B1; $fReadLimitWindows_$creadsPrec :: forall a. Int -> ReadS (LimitWindows a) [GblId, Arity=1, Str=, Unf=OtherCon []] = \r [eta_sad3] let { sat_sad4 [Occ=Once1] :: P (LimitWindows a_a9o1) [LclId] = \u [] $fRead(,)3 $fReadLimitWindows2 eta_sad3 $fApplicativeP_$cpure; } in run sat_sad4; $fReadLimitWindows_$creadListPrec :: forall a. ReadPrec [LimitWindows a] [GblId] = \u [] list $fReadLimitWindows1; $fReadLimitWindows17 :: forall {a}. P [LimitWindows a] [GblId] = \u [] $fReadLimitWindows_$creadListPrec $fRead()3 $fApplicativeP_$cpure; $fReadLimitWindows_$creadList :: forall a. ReadS [LimitWindows a] [GblId, Arity=1, Str=, Unf=OtherCon []] = \r [eta_B0] run $fReadLimitWindows17 eta_B0; $fReadLimitWindows [InlPrag=CONLIKE] :: forall a. Read (LimitWindows a) [GblId[DFunId]] = CCS_DONT_CARE C:Read! [$fReadLimitWindows_$creadsPrec $fReadLimitWindows_$creadList $fReadLimitWindows1 $fReadLimitWindows_$creadListPrec]; $w$c== [InlPrag=[2]] :: forall {a}. Int# -> Int -> Int -> Int# -> Int -> Int -> Bool [GblId, Arity=6, Str=, Unf=OtherCon []] = \r [ww_sad5 ww1_sad6 ww2_sad7 ww3_sad8 ww4_sad9 ww5_sada] case ==# [ww_sad5 ww3_sad8] of { __DEFAULT -> False []; 1# -> case ww1_sad6 of { I# x_sadd [Occ=Once1] -> case ww4_sad9 of { I# y_sadf [Occ=Once1] -> case ==# [x_sadd y_sadf] of { __DEFAULT -> False []; 1# -> eqInt ww2_sad7 ww5_sada; }; }; }; }; $fEqSelection_$c== [InlPrag=[2]] :: forall a. Selection a -> Selection a -> Bool [GblId, Arity=2, Str=<1!P(1!P(L),ML,ML)><1!P(1!P(L),ML,ML)>, Unf=OtherCon []] = \r [ds3_sadh ds4_sadi] case ds3_sadh of { Sel ww_sadk [Occ=Once1!] ww1_sadl [Occ=Once1] ww2_sadm [Occ=Once1] -> case ww_sadk of { I# ww3_sado [Occ=Once1] -> case ds4_sadi of { Sel ww4_sadq [Occ=Once1!] ww5_sadr [Occ=Once1] ww6_sads [Occ=Once1] -> case ww4_sadq of { I# ww7_sadu [Occ=Once1] -> $w$c== ww3_sado ww1_sadl ww2_sadm ww7_sadu ww5_sadr ww6_sads; }; }; }; }; $fEqSelection_$c/= [InlPrag=INLINE (sat-args=2)] :: forall a. Selection a -> Selection a -> Bool [GblId, Arity=2, Str=<1!P(1!P(L),ML,ML)><1!P(1!P(L),ML,ML)>, Unf=OtherCon []] = \r [eta_sadv eta1_sadw] case eta_sadv of { Sel a1_sady [Occ=Once1!] a2_sadz [Occ=Once1!] a3_sadA [Occ=Once1!] -> case eta1_sadw of { Sel b1_sadC [Occ=Once1!] b2_sadD [Occ=Once1!] b3_sadE [Occ=Once1!] -> case a1_sady of { I# x_sadG [Occ=Once1] -> case b1_sadC of { I# y_sadI [Occ=Once1] -> case ==# [x_sadG y_sadI] of { __DEFAULT -> True []; 1# -> case a2_sadz of { I# x1_sadL [Occ=Once1] -> case b2_sadD of { I# y1_sadN [Occ=Once1] -> case ==# [x1_sadL y1_sadN] of { __DEFAULT -> True []; 1# -> case a3_sadA of { I# x2_sadQ [Occ=Once1] -> case b3_sadE of { I# y2_sadS [Occ=Once1] -> case ==# [x2_sadQ y2_sadS] of { __DEFAULT -> True []; 1# -> False []; }; }; }; }; }; }; }; }; }; }; }; $fEqSelection [InlPrag=CONLIKE] :: forall a. Eq (Selection a) [GblId[DFunId]] = CCS_DONT_CARE C:Eq! [$fEqSelection_$c== $fEqSelection_$c/=]; lexeme15_rabI :: Addr# [GblId, Unf=OtherCon []] = "Sel"#; lexeme1_rabJ :: [Char] [GblId] = \u [] unpackCString# lexeme15_rabI; lexeme2_rabK :: Lexeme [GblId, Unf=OtherCon []] = CCS_DONT_CARE Ident! [lexeme1_rabJ]; lexeme3_rabL :: Addr# [GblId, Unf=OtherCon []] = "{"#; lexeme4_rabM :: [Char] [GblId] = \u [] unpackCString# lexeme3_rabL; lexeme5_rabN :: Lexeme [GblId, Unf=OtherCon []] = CCS_DONT_CARE Punc! [lexeme4_rabM]; ds_rabO :: Addr# [GblId, Unf=OtherCon []] = "nMaster"#; ds1_rabP :: [Char] [GblId] = \u [] unpackCString# ds_rabO; lvl_rabQ :: forall b. (Int -> P b) -> P b [GblId] = \u [] $fReadInt1 minPrec; ds2_rabR :: Prec -> forall b. (Int -> P b) -> P b [GblId, Arity=1, Str=, Unf=OtherCon []] = \r [ds3_sadU] lvl_rabQ; lvl1_rabS :: Addr# [GblId, Unf=OtherCon []] = ","#; lvl2_rabT :: [Char] [GblId] = \u [] unpackCString# lvl1_rabS; lvl3_rabU :: Lexeme [GblId, Unf=OtherCon []] = CCS_DONT_CARE Punc! [lvl2_rabT]; lvl4_rabV :: Addr# [GblId, Unf=OtherCon []] = "start"#; lvl5_rabW :: [Char] [GblId] = \u [] unpackCString# lvl4_rabV; lvl6_rabX :: Prec -> forall b. (Int -> P b) -> P b [GblId, Arity=1, Str=, Unf=OtherCon []] = \r [ds3_sadV] $fReadInt1 minPrec; lvl7_rabY :: Addr# [GblId, Unf=OtherCon []] = "nRest"#; lvl8_rabZ :: [Char] [GblId] = \u [] unpackCString# lvl7_rabY; $fShowSelection2 :: Addr# [GblId, Unf=OtherCon []] = "}"#; lvl9_rac0 :: [Char] [GblId] = \u [] unpackCString# $fShowSelection2; lvl10_rac1 :: Lexeme [GblId, Unf=OtherCon []] = CCS_DONT_CARE Punc! [lvl9_rac0]; $w$creadPrec1 [InlPrag=[2]] :: forall {a}. Int# -> forall {b}. (Selection a -> P b) -> P b [GblId, Arity=2, Str=, Unf=OtherCon []] = \r [ww_sadW eta_sadX] case <=# [ww_sadW 11#] of { __DEFAULT -> Fail []; 1# -> let { lvl124_sadZ [Occ=OnceL1] :: P b_s9ZQ [LclId] = \u [] let { lvl23_sae0 [Occ=OnceL1] :: P b_s9ZQ [LclId] = \u [] let { lvl125_sae1 [Occ=OnceL1] :: P b_s9ZQ [LclId] = \u [] let { sat_saeD [Occ=Once1] :: Int -> P b_s9ZQ [LclId] = \r [a1_sae2] let { lvl24_sae3 [Occ=OnceL1] :: P b_s9ZQ [LclId] = \u [] let { lvl25_sae4 [Occ=OnceL1] :: P b_s9ZQ [LclId] = \u [] let { sat_saet [Occ=Once1] :: Int -> P b_s9ZQ [LclId] = \r [a2_sae5] let { lvl26_sae6 [Occ=OnceL1] :: P b_s9ZQ [LclId] = \u [] let { lvl27_sae7 [Occ=OnceL1] :: P b_s9ZQ [LclId] = \u [] let { sat_saej [Occ=Once1] :: Int -> P b_s9ZQ [LclId] = \r [a3_sae8] let { lvl28_sae9 [Occ=OnceL1] :: P b_s9ZQ [LclId] = \u [] let { lvl29_saea [Occ=OnceL1] :: P b_s9ZQ [LclId] = \u [] let { sat_saeb [Occ=Once1] :: Selection a_s9ZL [LclId] = CCCS Sel! [a1_sae2 a2_sae5 a3_sae8]; } in eta_sadX sat_saeb; } in let { sat_saee [Occ=Once1] :: Lexeme -> P b_s9ZQ [LclId] = \r [a4_saec] case $fEqLexeme_$c== a4_saec lvl10_rac1 of { False -> Fail []; True -> lvl29_saea; }; } in expect2 sat_saee; } in let { k_saef [Occ=OnceL1] :: () -> P b_s9ZQ [LclId, Arity=1, Str=, Unf=OtherCon []] = \r [a4_saeg] lvl28_sae9; } in let { sat_saei [Occ=Once1] :: String -> P b_s9ZQ [LclId] = \r [a4_saeh] skipSpaces2 a4_saeh k_saef; } in Look [sat_saei]; } in case $wreadField lvl8_rabZ lvl6_rabX $fReadLimitWindows5 sat_saej of { Solo# ww1_sael [Occ=Once1] -> Look [ww1_sael]; }; } in let { sat_saeo [Occ=Once1] :: Lexeme -> P b_s9ZQ [LclId] = \r [a3_saem] case $fEqLexeme_$c== a3_saem lvl3_rabU of { False -> Fail []; True -> lvl27_sae7; }; } in expect2 sat_saeo; } in let { k_saep [Occ=OnceL1] :: () -> P b_s9ZQ [LclId, Arity=1, Str=, Unf=OtherCon []] = \r [a3_saeq] lvl26_sae6; } in let { sat_saes [Occ=Once1] :: String -> P b_s9ZQ [LclId] = \r [a3_saer] skipSpaces2 a3_saer k_saep; } in Look [sat_saes]; } in case $wreadField lvl5_rabW lvl6_rabX $fReadLimitWindows5 sat_saet of { Solo# ww1_saev [Occ=Once1] -> Look [ww1_saev]; }; } in let { sat_saey [Occ=Once1] :: Lexeme -> P b_s9ZQ [LclId] = \r [a2_saew] case $fEqLexeme_$c== a2_saew lvl3_rabU of { False -> Fail []; True -> lvl25_sae4; }; } in expect2 sat_saey; } in let { k_saez [Occ=OnceL1] :: () -> P b_s9ZQ [LclId, Arity=1, Str=, Unf=OtherCon []] = \r [a2_saeA] lvl24_sae3; } in let { sat_saeC [Occ=Once1] :: String -> P b_s9ZQ [LclId] = \r [a2_saeB] skipSpaces2 a2_saeB k_saez; } in Look [sat_saeC]; } in case $wreadField ds1_rabP ds2_rabR $fReadLimitWindows5 sat_saeD of { Solo# ww1_saeF [Occ=Once1] -> Look [ww1_saeF]; }; } in let { sat_saeI [Occ=Once1] :: Lexeme -> P b_s9ZQ [LclId] = \r [a1_saeG] case $fEqLexeme_$c== a1_saeG lexeme5_rabN of { False -> Fail []; True -> lvl125_sae1; }; } in expect2 sat_saeI; } in let { k_saeJ [Occ=OnceL1] :: () -> P b_s9ZQ [LclId, Arity=1, Str=, Unf=OtherCon []] = \r [a1_saeK] lvl23_sae0; } in let { lvl125_saeL [Occ=OnceL1] :: String -> P b_s9ZQ [LclId, Arity=1, Str=<1L>, Unf=OtherCon []] = \r [a1_saeM] skipSpaces2 a1_saeM k_saeJ; } in let { lvl24_saeN [Occ=OnceL1] :: P b_s9ZQ [LclId, Unf=OtherCon []] = CCCS Look! [lvl125_saeL]; } in let { sat_saeQ [Occ=Once1] :: Lexeme -> P b_s9ZQ [LclId] = \r [a1_saeO] case $fEqLexeme_$c== a1_saeO lexeme2_rabK of { False -> Fail []; True -> lvl24_saeN; }; } in expect2 sat_saeQ; } in let { k_saeR [Occ=OnceL1] :: () -> P b_s9ZQ [LclId, Arity=1, Str=, Unf=OtherCon []] = \r [a1_saeS] lvl124_sadZ; } in let { sat_saeU [Occ=Once1] :: String -> P b_s9ZQ [LclId] = \r [a1_saeT] skipSpaces2 a1_saeT k_saeR; } in Look [sat_saeU]; }; $fReadSelection2 [InlPrag=[2]] :: forall {a}. Prec -> forall b. (Selection a -> P b) -> P b [GblId, Arity=2, Str=<1!P(L)>, Unf=OtherCon []] = \r [c_saeV eta_saeW] case c_saeV of { I# ww_saeY [Occ=Once1] -> $w$creadPrec1 ww_saeY eta_saeW; }; $fReadSelection1 :: forall {a}. Prec -> forall b. (Selection a -> P b) -> P b [GblId, Arity=2, Str=, Unf=OtherCon []] = \r [eta_B0 eta_B1] $fRead(,)3 $fReadSelection2 eta_B0 eta_B1; $fReadSelection_$creadsPrec :: forall a. Int -> ReadS (Selection a) [GblId, Arity=1, Str=, Unf=OtherCon []] = \r [eta_saeZ] let { sat_saf0 [Occ=Once1] :: P (Selection a_a9ld) [LclId] = \u [] $fRead(,)3 $fReadSelection2 eta_saeZ $fApplicativeP_$cpure; } in run sat_saf0; $fReadSelection_$creadListPrec :: forall a. ReadPrec [Selection a] [GblId] = \u [] list $fReadSelection1; $fReadSelection3 :: forall {a}. P [Selection a] [GblId] = \u [] $fReadSelection_$creadListPrec $fRead()3 $fApplicativeP_$cpure; $fReadSelection_$creadList :: forall a. ReadS [Selection a] [GblId, Arity=1, Str=, Unf=OtherCon []] = \r [eta_B0] run $fReadSelection3 eta_B0; $fReadSelection [InlPrag=CONLIKE] :: forall a. Read (Selection a) [GblId[DFunId]] = CCS_DONT_CARE C:Read! [$fReadSelection_$creadsPrec $fReadSelection_$creadList $fReadSelection1 $fReadSelection_$creadListPrec]; unLC1 :: LimitChange -> LimitChange [GblId, Arity=1, Str=<1L>, Unf=OtherCon []] = \r [ds3_saf1] ds3_saf1; unLC :: LimitChange -> Int -> Int [GblId[[RecSel]], Arity=1, Str=<1L>, Unf=OtherCon []] = \r [eta_B0] unLC1 eta_B0; nRest :: forall a. Selection a -> Int [GblId[[RecSel]], Arity=1, Str=<1!P(A,A,1!P(L))>, Cpr=1, Unf=OtherCon []] = \r [ds3_saf2] case ds3_saf2 of { Sel _ [Occ=Dead] _ [Occ=Dead] ds6_saf6 [Occ=Once1] -> ds6_saf6; }; start :: forall a. Selection a -> Int [GblId[[RecSel]], Arity=1, Str=<1!P(A,1!P(L),A)>, Cpr=1, Unf=OtherCon []] = \r [ds3_saf7] case ds3_saf7 of { Sel _ [Occ=Dead] ds5_safa [Occ=Once1] _ [Occ=Dead] -> ds5_safa; }; nMaster :: forall a. Selection a -> Int [GblId[[RecSel]], Arity=1, Str=<1!P(1!P(L),A,A)>, Cpr=1, Unf=OtherCon []] = \r [ds3_safc] case ds3_safc of { Sel ds4_safe [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] -> ds4_safe; }; limitWindows :: forall (l :: * -> *) a. Int -> l a -> ModifiedLayout LimitWindows l a [GblId, Arity=2, Str=, Cpr=1(1(1,),), Unf=OtherCon []] = \r [n_safh eta_safi] let { sat_safj [Occ=Once1] :: LimitWindows a_a9kk [LclId] = CCCS LimitWindows! [FirstN n_safh]; } in ModifiedLayout [sat_safj eta_safi]; limitSlice :: forall (l :: * -> *) a. Int -> l a -> ModifiedLayout LimitWindows l a [GblId, Arity=2, Str=, Cpr=1(1(2,),), Unf=OtherCon []] = \r [n_safk eta_safl] let { sat_safm [Occ=Once1] :: LimitWindows a_a9k8 [LclId] = CCCS LimitWindows! [Slice n_safk]; } in ModifiedLayout [sat_safm eta_safl]; limitSelect :: forall (l :: * -> *) a. Int -> Int -> l a -> ModifiedLayout Selection l a [GblId, Arity=3, Str=, Cpr=1(1,), Unf=OtherCon []] = \r [m_safn r_safo eta_safp] let { sat_safq [Occ=Once1] :: Selection a_a9jV [LclId] = CCCS Sel! [m_safn m_safn r_safo]; } in ModifiedLayout [sat_safq eta_safp]; $krep_rac2 :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepTyConApp! [$tcInt []]; $krep1_rac3 :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepFun! [$krep_rac2 $krep_rac2]; $krep2_rac4 :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepVar! [0#]; $tcSliceStyle2 :: Addr# [GblId, Unf=OtherCon []] = "SliceStyle"#; $tcSliceStyle1 :: TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE TrNameS! [$tcSliceStyle2]; $tcSliceStyle :: TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE TyCon! [13941304350106558035##64 13132275638171508622##64 $trModule $tcSliceStyle1 0# krep$*]; $tc'FirstN1 [InlPrag=[~]] :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepTyConApp! [$tcSliceStyle []]; $tc'FirstN3 :: Addr# [GblId, Unf=OtherCon []] = "'FirstN"#; $tc'FirstN2 :: TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE TrNameS! [$tc'FirstN3]; $tc'FirstN :: TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE TyCon! [10116337125637940820##64 14190614920529921067##64 $trModule $tc'FirstN2 0# $tc'FirstN1]; $tc'Slice2 :: Addr# [GblId, Unf=OtherCon []] = "'Slice"#; $tc'Slice1 :: TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE TrNameS! [$tc'Slice2]; $tc'Slice :: TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE TyCon! [15575657000049413632##64 2173408764932884064##64 $trModule $tc'Slice1 0# $tc'FirstN1]; $tcLimitWindows1 :: TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE TrNameS! [$fReadLimitWindows4]; $tcLimitWindows :: TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE TyCon! [14520993961216849468##64 162037550890617493##64 $trModule $tcLimitWindows1 0# krep$*Arr*]; $krep3_rac5 :: [KindRep] [GblId, Unf=OtherCon []] = CCS_DONT_CARE :! [$krep2_rac4 []]; $krep4_rac6 :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepTyConApp! [$tcLimitWindows $krep3_rac5]; $krep5_rac7 :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepFun! [$krep_rac2 $krep4_rac6]; $tc'LimitWindows1 [InlPrag=[~]] :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepFun! [$tc'FirstN1 $krep5_rac7]; $tc'LimitWindows3 :: Addr# [GblId, Unf=OtherCon []] = "'LimitWindows"#; $tc'LimitWindows2 :: TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE TrNameS! [$tc'LimitWindows3]; $tc'LimitWindows :: TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE TyCon! [6768826482830145830##64 3169763605382925849##64 $trModule $tc'LimitWindows2 1# $tc'LimitWindows1]; $krep6_rac8 :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepTyConApp! [$tcLimitChange []]; $tc'LimitChange1 [InlPrag=[~]] :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepFun! [$krep1_rac3 $krep6_rac8]; $tc'LimitChange3 :: Addr# [GblId, Unf=OtherCon []] = "'LimitChange"#; $tc'LimitChange2 :: TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE TrNameS! [$tc'LimitChange3]; $tc'LimitChange :: TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE TyCon! [9951643745340654621##64 9991767849318769055##64 $trModule $tc'LimitChange2 0# $tc'LimitChange1]; $fMessageLimitChange [InlPrag=INLINE (sat-args=0)] :: Message LimitChange [GblId[DFunId(nt)]] = \u [] $fLayoutModifierLimitWindowsa3; $tcSelection2 :: Addr# [GblId, Unf=OtherCon []] = "Selection"#; $tcSelection1 :: TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE TrNameS! [$tcSelection2]; $tcSelection :: TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE TyCon! [15998207753383732712##64 6897247884066360135##64 $trModule $tcSelection1 0# krep$*Arr*]; $krep7_rac9 :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepTyConApp! [$tcSelection $krep3_rac5]; $krep8_raca :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepFun! [$krep_rac2 $krep7_rac9]; $krep9_racb :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepFun! [$krep_rac2 $krep8_raca]; $tc'Sel1 [InlPrag=[~]] :: KindRep [GblId, Unf=OtherCon []] = CCS_DONT_CARE KindRepFun! [$krep_rac2 $krep9_racb]; $tc'Sel3 :: Addr# [GblId, Unf=OtherCon []] = "'Sel"#; $tc'Sel2 :: TrName [GblId, Unf=OtherCon []] = CCS_DONT_CARE TrNameS! [$tc'Sel3]; $tc'Sel :: TyCon [GblId, Unf=OtherCon []] = CCS_DONT_CARE TyCon! [5588309876274313630##64 16363534713058820065##64 $trModule $tc'Sel2 1# $tc'Sel1]; $wupdate [InlPrag=[2]] :: forall {l} {a}. Int -> Int -> Int -> Stack a -> (# Int, Int, Int #) [GblId, Arity=4, Str=, Unf=OtherCon []] = \r [ww_safr ww1_safs ww2_saft stk_safu] let { sat_sagd [Occ=Once1] :: Int [LclId] = \u [] case stk_safu of { Stack _ [Occ=Dead] ds10_safx [Occ=Once1] ds11_safy [Occ=Once3] -> case $wlenAcc ds10_safx 0# of ww3_safz { __DEFAULT -> case ww_safr of wild1_safA [Occ=Once6] { I# y_safB -> case <# [ww3_safz y_safB] of { __DEFAULT -> case ww1_safs of { I# x1_safE -> let-no-escape { $w$j_safF [InlPrag=[2], Occ=Once2!T[2], Dmd=1C1(C1(L))] :: Int# -> Int# -> Int [LclId[JoinId(2)(Nothing)], Arity=2, Str=, Unf=OtherCon []] = \r [x2_safG ww4_safH] case ww2_saft of { I# y1_safJ -> case -# [ww3_safz y1_safJ] of sat_safL [Occ=Once1] { __DEFAULT -> case +# [sat_safL 1#] of y2_safK { __DEFAULT -> case <=# [x2_safG y2_safK] of { __DEFAULT -> case $wlenAcc ds11_safy 0# of ww5_safN [Occ=Once1] { __DEFAULT -> case +# [ww3_safz ww5_safN] of sat_safP [Occ=Once1] { __DEFAULT -> case -# [sat_safP y1_safJ] of sat_safQ [Occ=Once1] { __DEFAULT -> case +# [sat_safQ 1#] of y3_safO { __DEFAULT -> case <=# [x2_safG y3_safO] of { __DEFAULT -> case <=# [y3_safO y_safB] of { __DEFAULT -> I# [y3_safO]; 1# -> wild1_safA; }; 1# -> case <=# [x2_safG y_safB] of { __DEFAULT -> I# [ww4_safH]; 1# -> wild1_safA; }; }; }; }; }; }; 1# -> case $wlenAcc ds11_safy 0# of ww5_safU [Occ=Once1] { __DEFAULT -> case +# [ww3_safz ww5_safU] of sat_safW [Occ=Once1] { __DEFAULT -> case -# [sat_safW y1_safJ] of sat_safX [Occ=Once1] { __DEFAULT -> case +# [sat_safX 1#] of y3_safV { __DEFAULT -> case <=# [y2_safK y3_safV] of { __DEFAULT -> case <=# [y3_safV y_safB] of { __DEFAULT -> I# [y3_safV]; 1# -> wild1_safA; }; 1# -> case <=# [y2_safK y_safB] of { __DEFAULT -> I# [y2_safK]; 1# -> wild1_safA; }; }; }; }; }; }; }; }; }; }; } in case <=# [x1_safE ww3_safz] of { __DEFAULT -> $w$j_safF ww3_safz ww3_safz; 1# -> $w$j_safF x1_safE x1_safE; }; }; 1# -> case ww1_safs of wild2_sag2 [Occ=Once1] { I# x1_sag3 -> case $wlenAcc ds11_safy 0# of ww4_sag4 [Occ=Once1] { __DEFAULT -> case ww2_saft of { I# y1_sag6 [Occ=Once1] -> case +# [ww3_safz ww4_sag4] of sat_sag8 [Occ=Once1] { __DEFAULT -> case -# [sat_sag8 y1_sag6] of sat_sag9 [Occ=Once1] { __DEFAULT -> case +# [sat_sag9 1#] of y2_sag7 { __DEFAULT -> case <=# [x1_sag3 y2_sag7] of { __DEFAULT -> case <=# [y2_sag7 y_safB] of { __DEFAULT -> I# [y2_sag7]; 1# -> wild1_safA; }; 1# -> case <=# [x1_sag3 y_safB] of { __DEFAULT -> wild2_sag2; 1# -> wild1_safA; }; }; }; }; }; }; }; }; }; }; }; }; } in (#,,#) [ww_safr sat_sagd ww2_saft]; update [InlPrag=[2]] :: forall l a. Selection l -> Stack a -> Selection a [GblId, Arity=2, Str=<1!P(L,ML,L)>, Cpr=1, Unf=OtherCon []] = \r [sel_sage stk_sagf] case sel_sage of { Sel ww_sagh [Occ=Once1] ww1_sagi [Occ=Once1] ww2_sagj [Occ=Once1] -> case $wupdate ww_sagh ww1_sagi ww2_sagj stk_sagf of { (#,,#) ww3_sagl [Occ=Once1] ww4_sagm [Occ=Once1] ww5_sagn [Occ=Once1] -> Sel [ww3_sagl ww4_sagm ww5_sagn]; }; }; $fLayoutModifierSelectiona_$cpureModifier :: forall a. Selection a -> Rectangle -> Maybe (Stack a) -> [(a, Rectangle)] -> ([(a, Rectangle)], Maybe (Selection a)) [GblId, Arity=4, Str=, Cpr=1, Unf=OtherCon []] = \r [sel_sago ds3_sagp stk_sagq wins_sagr] let { sat_sagv [Occ=Once1] :: Maybe (Selection a_a9qz) [LclId] = \u [] case stk_sagq of { Nothing -> Nothing []; Just a1_sagt [Occ=Once1] -> let { sat_sagu [Occ=Once1] :: Selection a_a9qz [LclId] = \u [] update sel_sago a1_sagt; } in Just [sat_sagu]; }; } in (,) [wins_sagr sat_sagv]; Rec { $wunsafeDrop_racc :: forall {a1}. Int# -> [a1] -> [a1] [GblId[StrictWorker([~, !])], Arity=2, Str=<1L>, Unf=OtherCon []] = \r [ww_sagw ds3_sagx] case ds3_sagx of { [] -> [] []; : _ [Occ=Dead] ipv2_sagA [Occ=Once2] -> case ww_sagw of ds4_sagB [Occ=Once1] { __DEFAULT -> case -# [ds4_sagB 1#] of sat_sagC [Occ=Once1] { __DEFAULT -> $wunsafeDrop_racc sat_sagC ipv2_sagA; }; 1# -> ipv2_sagA; }; }; end Rec } $w$cmodifyLayout1 [InlPrag=[2]] :: forall {a} {l :: * -> *}. (Workspace WorkspaceId (l a) a -> Rectangle -> X ([(a, Rectangle)], Maybe (l a))) -> Selection a -> Workspace WorkspaceId (l a) a -> Rectangle -> X ([(a, Rectangle)], Maybe (l a)) [GblId, Arity=3, Str=<1C1(L)>, Unf=OtherCon []] = \r [ww_sagD s_sagE w_sagF] let { sat_sahR [Occ=Once1] :: Workspace WorkspaceId (l_sa1K a_sa1J) a_sa1J [LclId] = \u [] case w_sagF of { Workspace ds3_sagH [Occ=Once1] ds4_sagI [Occ=Once1] ds5_sagJ [Occ=Once1!] -> let { sat_sahQ [Occ=Once1] :: Maybe (Stack a_sa1J) [LclId] = \u [] case ds5_sagJ of { Nothing -> Nothing []; Just a1_sagL -> let { sat_sahP [Occ=Once1] :: Stack a_sa1J [LclId] = \u [] case s_sagE of { Sel ww1_sagN [Occ=Once1] ww2_sagO [Occ=Once1] ww3_sagP [Occ=Once1] -> case $wupdate ww1_sagN ww2_sagO ww3_sagP a1_sagL of { (#,,#) ww4_sagR [Occ=Once1!] ww5_sagS ww6_sagT [Occ=Once2!] -> case a1_sagL of { Stack ds9_sagV [Occ=Once2] ds10_sagW ds11_sagX -> case reverse1 ds10_sagW [] of ups_sagY [Dmd=SL] { __DEFAULT -> case $wlenAcc ups_sagY 0# of ww7_sagZ { __DEFAULT -> case ww4_sagR of { I# y_sah1 -> case <# [ww7_sagZ y_sah1] of { __DEFAULT -> let { sat_sahr [Occ=Once1] :: [a_sa1J] [LclId] = \u [] case ww6_sagT of { I# x_sahk [Occ=Once1] -> case ww5_sagS of { I# y1_sahm [Occ=Once1] -> case -# [ww7_sagZ y1_sahm] of sat_saho [Occ=Once1] { __DEFAULT -> case -# [x_sahk sat_saho] of sat_sahp [Occ=Once1] { __DEFAULT -> case -# [sat_sahp 1#] of y2_sahn { __DEFAULT -> case <# [0# y2_sahn] of { __DEFAULT -> [] []; 1# -> $wunsafeTake y2_sahn ds11_sagX; }; }; }; }; }; }; } in let { sat_sahi [Occ=Once1] :: [a_sa1J] [LclId] = \u [] let { n_sah3 [Occ=OnceL3] :: [a_sa1J] [LclId] = \u [] case ww5_sagS of { I# x_sah5 -> case <=# [x_sah5 0#] of { __DEFAULT -> $wunsafeDrop_racc x_sah5 ups_sagY; 1# -> ups_sagY; }; }; } in case <# [0# y_sah1] of { __DEFAULT -> reverse1 n_sah3 []; 1# -> let { Rec { $wgo1_sah8 [InlPrag=[2], Occ=LoopBreaker, Dmd=SCS(C1(L))] :: [a_sa1J] -> Int# -> [a_sa1J] [LclId[StrictWorker([!])], Arity=2, Str=<1L>, Unf=OtherCon []] = \r [ds6_sah9 ww8_saha] case ds6_sah9 of { [] -> n_sah3; : y1_sahc [Occ=Once2] ys_sahd [Occ=Once1] -> case ww8_saha of ds7_sahe [Occ=Once1] { __DEFAULT -> let { sat_sahg [Occ=Once1] :: [a_sa1J] [LclId] = \u [] case -# [ds7_sahe 1#] of sat_sahf [Occ=Once1] { __DEFAULT -> $wgo1_sah8 ys_sahd sat_sahf; }; } in : [y1_sahc sat_sahg]; 1# -> : [y1_sahc n_sah3]; }; }; end Rec } } in case $wgo1_sah8 ups_sagY y_sah1 of sat_sahh [Occ=Once1] { __DEFAULT -> reverse1 sat_sahh []; }; }; } in Stack [ds9_sagV sat_sahi sat_sahr]; 1# -> let { sat_sahO [Occ=Once1] :: [a_sa1J] [LclId] = \u [] case -# [y_sah1 ww7_sagZ] of sat_saht [Occ=Once1] { __DEFAULT -> case -# [sat_saht 1#] of n_sahs { __DEFAULT -> let { n1_sahu [Occ=OnceL3] :: [a_sa1J] [LclId] = \u [] case ww6_sagT of { I# y1_sahw -> case <# [0# y1_sahw] of { __DEFAULT -> [] []; 1# -> case ww5_sagS of { I# x_sahz [Occ=Once1] -> case -# [x_sahz ww7_sagZ] of sat_sahB [Occ=Once1] { __DEFAULT -> case -# [sat_sahB 1#] of x1_sahA { __DEFAULT -> case <=# [x1_sahA 0#] of { __DEFAULT -> case $wunsafeDrop_racc x1_sahA ds11_sagX of sat_sahD [Occ=Once1] { __DEFAULT -> $wunsafeTake y1_sahw sat_sahD; }; 1# -> $wunsafeTake y1_sahw ds11_sagX; }; }; }; }; }; }; } in case <# [0# n_sahs] of { __DEFAULT -> n1_sahu; 1# -> let { Rec { $wgo1_sahF [InlPrag=[2], Occ=LoopBreaker, Dmd=SCS(C1(L))] :: [a_sa1J] -> Int# -> [a_sa1J] [LclId[StrictWorker([!])], Arity=2, Str=<1L>, Unf=OtherCon []] = \r [ds6_sahG ww8_sahH] case ds6_sahG of { [] -> n1_sahu; : y1_sahJ [Occ=Once2] ys_sahK [Occ=Once1] -> case ww8_sahH of ds7_sahL [Occ=Once1] { __DEFAULT -> let { sat_sahN [Occ=Once1] :: [a_sa1J] [LclId] = \u [] case -# [ds7_sahL 1#] of sat_sahM [Occ=Once1] { __DEFAULT -> $wgo1_sahF ys_sahK sat_sahM; }; } in : [y1_sahJ sat_sahN]; 1# -> : [y1_sahJ n1_sahu]; }; }; end Rec } } in $wgo1_sahF ds11_sagX n_sahs; }; }; }; } in Stack [ds9_sagV ds10_sagW sat_sahO]; }; }; }; }; }; }; }; } in Just [sat_sahP]; }; } in Workspace [ds3_sagH ds4_sagI sat_sahQ]; }; } in ww_sagD sat_sahR; $fLayoutModifierSelectiona_$cmodifyLayout [InlPrag=[2]] :: forall a (l :: * -> *). LayoutClass l a => Selection a -> Workspace WorkspaceId (l a) a -> Rectangle -> X ([(a, Rectangle)], Maybe (l a)) [GblId, Arity=3, Str=<1P(A,A,1C1(L),A,A,A,A,A,A)>, Unf=OtherCon []] = \r [$dLayoutClass_sahS s_sahT w_sahU] case $dLayoutClass_sahS of { C:LayoutClass _ [Occ=Dead] _ [Occ=Dead] ww2_sahY [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> $w$cmodifyLayout1 ww2_sahY s_sahT w_sahU; }; lvl11_racd :: Addr# [GblId, Unf=OtherCon []] = "fromJust"#; lvl12_race :: [Char] [GblId] = \u [] unpackCString# lvl11_racd; lvl13_racf :: [Char] [GblId] = \u [] unpackCString# $trModule4; lvl14_racg :: [Char] [GblId] = \u [] unpackCString# $trModule2; lvl15_rach :: Addr# [GblId, Unf=OtherCon []] = "./XMonad/Layout/LimitWindows.hs"#; lvl16_raci :: [Char] [GblId] = \u [] unpackCString# lvl15_rach; lvl17_racj :: Int [GblId, Unf=OtherCon []] = CCS_DONT_CARE I#! [110#]; lvl18_rack :: Int [GblId, Unf=OtherCon []] = CCS_DONT_CARE I#! [25#]; lvl19_racl :: Int [GblId, Unf=OtherCon []] = CCS_DONT_CARE I#! [33#]; lvl20_racm :: SrcLoc [GblId, Unf=OtherCon []] = CCS_DONT_CARE SrcLoc! [lvl13_racf lvl14_racg lvl16_raci lvl17_racj lvl18_rack lvl17_racj lvl19_racl]; lvl21_racn :: CallStack [GblId, Unf=OtherCon []] = CCS_DONT_CARE PushCallStack! [lvl12_race lvl20_racm EmptyCallStack]; lvl22_raco :: forall {a}. Stack a [GblId, Str=b, Cpr=b] = \u [] fromJust1 lvl21_racn; Rec { poly_$wgo1_racp :: forall {a}. [a] -> Int# -> [a] [GblId, Arity=2, Str=<1L>, Unf=OtherCon []] = \r [ds3_sai5 ww_sai6] case ds3_sai5 of { [] -> [] []; : y_sai8 [Occ=Once2] ys_sai9 [Occ=Once1] -> case ww_sai6 of ds4_saia [Occ=Once1] { __DEFAULT -> let { sat_saic [Occ=Once1] :: [a_sa2E] [LclId] = \u [] case -# [ds4_saia 1#] of sat_saib [Occ=Once1] { __DEFAULT -> poly_$wgo1_racp ys_sai9 sat_saib; }; } in : [y_sai8 sat_saic]; 1# -> : [y_sai8 []]; }; }; end Rec } Rec { poly_$wxs_racq :: forall {a}. Int# -> a -> [a] -> [a] -> (# a, [a], [a] #) [GblId, Arity=4, Str=<1L><1L><1L>, Unf=OtherCon []] = \r [ww_said ww1_saie ww2_saif ww3_saig] case ww1_saie of ww4_saih [Occ=Once3] { __DEFAULT -> case ww_said of ds3_saii [Occ=Once1] { __DEFAULT -> case -# [ds3_saii 1#] of sat_saij [Occ=Once1] { __DEFAULT -> case poly_$wxs_racq sat_saij ww4_saih ww2_saif ww3_saig of { (#,,#) ww5_sail [Occ=Once2] ww6_saim [Occ=Once2] ww7_sain [Occ=Once1!] -> case ww7_sain of { [] -> let { sat_saip [Occ=Once1] :: [a_sa2E] [LclId] = CCCS :! [ww5_sail ww6_saim]; } in case reverse1 sat_saip [] of { [] -> focusDown'1; : a1_sair [Occ=Once1] as_sais [Occ=Once1] -> case a1_sair of conrep_sait [Occ=Once1] { __DEFAULT -> (#,,#) [conrep_sait [] as_sais]; }; }; : l_saiu [Occ=Once1] ls_saiv [Occ=Once1] -> case l_saiu of conrep_saiw [Occ=Once1] { __DEFAULT -> let { sat_saix [Occ=Once1] :: [a_sa2E] [LclId] = CCCS :! [ww5_sail ww6_saim]; } in (#,,#) [conrep_saiw sat_saix ls_saiv]; }; }; }; }; 1# -> case ww3_saig of { [] -> let { sat_saiz [Occ=Once1] :: [a_sa2E] [LclId] = CCCS :! [ww4_saih ww2_saif]; } in case reverse1 sat_saiz [] of { [] -> focusDown'1; : a1_saiB [Occ=Once1] as_saiC [Occ=Once1] -> case a1_saiB of conrep_saiD [Occ=Once1] { __DEFAULT -> (#,,#) [conrep_saiD [] as_saiC]; }; }; : l_saiE [Occ=Once1] ls_saiF [Occ=Once1] -> case l_saiE of conrep_saiG [Occ=Once1] { __DEFAULT -> let { sat_saiH [Occ=Once1] :: [a_sa2E] [LclId] = CCCS :! [ww4_saih ww2_saif]; } in (#,,#) [conrep_saiG sat_saiH ls_saiF]; }; }; }; }; end Rec } $w$cmodifyLayout [InlPrag=[2]] :: forall {a} {l :: * -> *}. (Workspace WorkspaceId (l a) a -> Rectangle -> X ([(a, Rectangle)], Maybe (l a))) -> SliceStyle -> Int -> Workspace WorkspaceId (l a) a -> Rectangle -> X ([(a, Rectangle)], Maybe (l a)) [GblId, Arity=4, Str=<1C1(L)>, Unf=OtherCon []] = \r [ww_saiI ww1_saiJ ww2_saiK ws_saiL] let { sat_sakb [Occ=Once1] :: Workspace WorkspaceId (l_sa2F a_sa2E) a_sa2E [LclId] = \u [] case ws_saiL of { Workspace ds3_saiN [Occ=Once1] ds4_saiO [Occ=Once1] ds5_saiP [Occ=Once1!] -> let { sat_saka [Occ=Once1] :: Maybe (Stack a_sa2E) [LclId] = \u [] case ds5_saiP of { Nothing -> Nothing []; Just a1_saiR [Occ=Once2!] -> let { sat_sak9 [Occ=Once1] :: Stack a_sa2E [LclId] = \u [] case ww1_saiJ of { FirstN -> case a1_saiR of { Stack ds9_saiU [Occ=OnceL1] ds10_saiV ds11_saiW [Occ=OnceL1] -> case $wlenAcc ds10_saiV 0# of ww3_saiX { __DEFAULT -> case ww2_saiK of { I# y1_saiZ -> let-no-escape { $w$j_saj0 [InlPrag=[2], Occ=Once2!T[2], Dmd=1C1(C1(L))] :: Int# -> Int# -> Stack a_sa2E [LclId[JoinId(2)(Nothing)], Arity=2, Str=, Unf=OtherCon []] = \r [y_saj1 ww4_saj2] case <# [0# y_saj1] of { __DEFAULT -> lvl22_raco; 1# -> let { z_saj4 [Occ=OnceL1] :: [a_sa2E] [LclId, Unf=OtherCon []] = CCCS :! [ds9_saiU ds11_saiW]; } in let { Rec { $wgo1_saj5 [InlPrag=[2], Occ=LoopBreaker, Dmd=SCS(C1(L))] :: [a_sa2E] -> Int# -> [a_sa2E] [LclId[StrictWorker([!])], Arity=2, Str=<1L>, Unf=OtherCon []] = \r [ds6_saj6 ww5_saj7] case ds6_saj6 of { [] -> poly_$wgo1_racp z_saj4 ww5_saj7; : y2_saj9 [Occ=Once2] ys_saja [Occ=Once1] -> case ww5_saj7 of ds7_sajb [Occ=Once1] { __DEFAULT -> let { sat_sajd [Occ=Once1] :: [a_sa2E] [LclId] = \u [] case -# [ds7_sajb 1#] of sat_sajc [Occ=Once1] { __DEFAULT -> $wgo1_saj5 ys_saja sat_sajc; }; } in : [y2_saj9 sat_sajd]; 1# -> : [y2_saj9 []]; }; }; end Rec } } in case reverse1 ds10_saiV [] of sat_saje [Occ=Once1] { __DEFAULT -> case $wgo1_saj5 sat_saje ww4_saj2 of { [] -> lvl22_raco; : x_sajg [Occ=Once1] xs_sajh [Occ=Once2] -> case x_sajg of conrep_saji [Occ=Once2] { __DEFAULT -> case <# [0# ww3_saiX] of { __DEFAULT -> Stack [conrep_saji [] xs_sajh]; 1# -> case poly_$wxs_racq ww3_saiX conrep_saji [] xs_sajh of { (#,,#) ww5_sajl [Occ=Once1] ww6_sajm [Occ=Once1] ww7_sajn [Occ=Once1] -> Stack [ww5_sajl ww6_sajm ww7_sajn]; }; }; }; }; }; }; } in case <=# [1# y1_saiZ] of { __DEFAULT -> $w$j_saj0 1# 1#; 1# -> $w$j_saj0 y1_saiZ y1_saiZ; }; }; }; }; Slice -> case a1_saiR of { Stack f_sajq [Occ=Once1] u_sajr d_sajs -> let { nu_sajt :: Int [LclId] = \u [] case ww2_saiK of { I# x_sajv [Occ=Once1] -> case -# [x_sajv 1#] of x#_sajw { __DEFAULT -> case <# [x#_sajw 0#] of c0#_sajx { __DEFAULT -> case +# [x#_sajw c0#_sajx] of sat_sajy [Occ=Once1] { __DEFAULT -> case quotRemInt# [sat_sajy 2#] of { (#,#) ipv_sajA [Occ=Once1] ipv1_sajB [Occ=Once1] -> case -# [0# c0#_sajx] of sat_sajD [Occ=Once1] { __DEFAULT -> case andI# [sat_sajD 2#] of sat_sajE [Occ=Once1] { __DEFAULT -> case -# [sat_sajE c0#_sajx] of sat_sajF [Occ=Once1] { __DEFAULT -> case +# [ipv1_sajB sat_sajF] of sat_sajG [Occ=Once1] { __DEFAULT -> case -# [ipv_sajA c0#_sajx] of sat_sajC [Occ=Once1] { __DEFAULT -> case +# [sat_sajC sat_sajG] of sat_sajH [Occ=Once1] { __DEFAULT -> I# [sat_sajH]; }; }; }; }; }; }; }; }; }; }; }; } in let { nd_sajI :: Int [LclId] = \u [] case ww2_saiK of { I# x_sajK [Occ=Once1] -> case -# [x_sajK 1#] of sat_sajL [Occ=Once1] { __DEFAULT -> case uncheckedIShiftRA# [sat_sajL 1#] of sat_sajM [Occ=Once1] { __DEFAULT -> I# [sat_sajM]; }; }; }; } in let { sat_sak8 [Occ=Once1] :: [a_sa2E] [LclId] = \u [] case nd_sajI of { I# x_sajZ -> case nu_sajt of { I# x1_sak1 [Occ=Once1] -> case $wlenAcc u_sajr 0# of ww3_sak2 [Occ=Once1] { __DEFAULT -> case -# [x1_sak1 ww3_sak2] of y1_sak3 { __DEFAULT -> case <=# [0# y1_sak3] of { __DEFAULT -> case <# [0# x_sajZ] of { __DEFAULT -> [] []; 1# -> $wunsafeTake x_sajZ d_sajs; }; 1# -> case +# [x_sajZ y1_sak3] of y_sak6 { __DEFAULT -> case <# [0# y_sak6] of { __DEFAULT -> [] []; 1# -> $wunsafeTake y_sak6 d_sajs; }; }; }; }; }; }; }; } in let { sat_sajX [Occ=Once1] :: [a_sa2E] [LclId] = \u [] case nu_sajt of { I# x_sajO -> case nd_sajI of { I# x1_sajQ [Occ=Once1] -> case $wlenAcc d_sajs 0# of ww3_sajR [Occ=Once1] { __DEFAULT -> case -# [x1_sajQ ww3_sajR] of y1_sajS { __DEFAULT -> case <=# [0# y1_sajS] of { __DEFAULT -> case <# [0# x_sajO] of { __DEFAULT -> [] []; 1# -> $wunsafeTake x_sajO u_sajr; }; 1# -> case +# [x_sajO y1_sajS] of y_sajV { __DEFAULT -> case <# [0# y_sajV] of { __DEFAULT -> [] []; 1# -> $wunsafeTake y_sajV u_sajr; }; }; }; }; }; }; }; } in Stack [f_sajq sat_sajX sat_sak8]; }; }; } in Just [sat_sak9]; }; } in Workspace [ds3_saiN ds4_saiO sat_saka]; }; } in ww_saiI sat_sakb; $fLayoutModifierLimitWindowsa_$cmodifyLayout [InlPrag=[2]] :: forall a (l :: * -> *). LayoutClass l a => LimitWindows a -> Workspace WorkspaceId (l a) a -> Rectangle -> X ([(a, Rectangle)], Maybe (l a)) [GblId, Arity=3, Str=<1P(A,A,1C1(L),A,A,A,A,A,A)><1!P(ML,L)>, Unf=OtherCon []] = \r [$dLayoutClass_sakc ds3_sakd ws_sake] case $dLayoutClass_sakc of { C:LayoutClass _ [Occ=Dead] _ [Occ=Dead] ww2_saki [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> case ds3_sakd of { LimitWindows ww9_sakq [Occ=Once1] ww10_sakr [Occ=Once1] -> $w$cmodifyLayout ww2_saki ww9_sakq ww10_sakr ws_sake; }; }; $fShowSelection5 :: Addr# [GblId, Unf=OtherCon []] = "Sel {nMaster = "#; $fShowSelection4 :: Addr# [GblId, Unf=OtherCon []] = ", start = "#; $fShowSelection3 :: Addr# [GblId, Unf=OtherCon []] = ", nRest = "#; $w$cshowsPrec1 [InlPrag=[2]] :: forall {a}. Int# -> Int -> Int -> Int -> String -> String [GblId, Arity=5, Str=, Unf=OtherCon []] = \r [ww_saks ww1_sakt ww2_saku ww3_sakv eta_sakw] let { p_sakx [Occ=Once2!, Dmd=MCM(L)] :: ShowS [LclId, Arity=1, Str=, Unf=OtherCon []] = \r [x_saky] let { sat_sakK [Occ=Once1, Dmd=ML] :: [Char] [LclId] = \s [] case ww1_sakt of { I# ww4_sakA [Occ=Once1] -> let { sat_sakJ [Occ=Once1] :: [Char] [LclId] = \u [] let { sat_sakI [Occ=Once1, Dmd=ML] :: [Char] [LclId] = \s [] case ww2_saku of { I# ww5_sakC [Occ=Once1] -> let { sat_sakH [Occ=Once1] :: [Char] [LclId] = \u [] let { sat_sakG [Occ=Once1, Dmd=ML] :: [Char] [LclId] = \s [] case ww3_sakv of { I# ww6_sakE [Occ=Once1] -> let { sat_sakF [Occ=Once1] :: [Char] [LclId] = \u [] unpackAppendCString# $fShowSelection2 x_saky; } in $wshowSignedInt 0# ww6_sakE sat_sakF; }; } in unpackAppendCString# $fShowSelection3 sat_sakG; } in $wshowSignedInt 0# ww5_sakC sat_sakH; }; } in unpackAppendCString# $fShowSelection4 sat_sakI; } in $wshowSignedInt 0# ww4_sakA sat_sakJ; }; } in unpackAppendCString# $fShowSelection5 sat_sakK; } in case >=# [ww_saks 11#] of { __DEFAULT -> p_sakx eta_sakw; 1# -> let { sat_sakN [Occ=Once1] :: String [LclId] = \u [] let { sat_sakM [Occ=Once1] :: [Char] [LclId] = CCCS :! [$fShow(,)1 eta_sakw]; } in p_sakx sat_sakM; } in : [$fShow(,)3 sat_sakN]; }; $fShowSelection_$cshowsPrec [InlPrag=[2]] :: forall a. Int -> Selection a -> ShowS [GblId, Arity=3, Str=<1!P(L)><1!P(ML,ML,ML)>, Unf=OtherCon []] = \r [a1_sakO ds3_sakP eta_sakQ] case a1_sakO of { I# ww_sakS [Occ=Once1] -> case ds3_sakP of { Sel ww1_sakU [Occ=Once1] ww2_sakV [Occ=Once1] ww3_sakW [Occ=Once1] -> $w$cshowsPrec1 ww_sakS ww1_sakU ww2_sakV ww3_sakW eta_sakQ; }; }; $fShowSelection1 :: forall {a}. Selection a -> ShowS [GblId, Arity=2, Str=<1!P(ML,ML,ML)>, Unf=OtherCon []] = \r [ds3_sakX eta_sakY] case ds3_sakX of { Sel ww_sal0 [Occ=Once1] ww1_sal1 [Occ=Once1] ww2_sal2 [Occ=Once1] -> $w$cshowsPrec1 0# ww_sal0 ww1_sal1 ww2_sal2 eta_sakY; }; $fShowSelection_$cshowList :: forall a. [Selection a] -> ShowS [GblId, Arity=2, Str=<1L>, Unf=OtherCon []] = \r [ls_sal3 s_sal4] showList__ $fShowSelection1 ls_sal3 s_sal4; $fShowLimitWindows3 :: Int [GblId, Unf=OtherCon []] = CCS_DONT_CARE I#! [0#]; $fShowSelection_$cshow :: forall a. Selection a -> String [GblId, Arity=1, Str=<1!P(ML,ML,ML)>, Unf=OtherCon []] = \r [x_sal5] case x_sal5 of { Sel ww_sal7 [Occ=Once1] ww1_sal8 [Occ=Once1] ww2_sal9 [Occ=Once1] -> $w$cshowsPrec1 0# ww_sal7 ww1_sal8 ww2_sal9 []; }; $fShowSelection [InlPrag=CONLIKE] :: forall a. Show (Selection a) [GblId[DFunId]] = CCS_DONT_CARE C:Show! [$fShowSelection_$cshowsPrec $fShowSelection_$cshow $fShowSelection_$cshowList]; $fShowLimitWindows2 :: Addr# [GblId, Unf=OtherCon []] = "LimitWindows "#; $w$cshowsPrec [InlPrag=[2]] :: forall {a}. Int# -> SliceStyle -> Int -> String -> String [GblId, Arity=4, Str=, Unf=OtherCon []] = \r [ww_sala ww1_salb ww2_salc eta_sald] let { p_sale [Occ=Once2!, Dmd=MCM(L)] :: ShowS [LclId, Arity=1, Str=, Unf=OtherCon []] = \r [x_salf] let { sat_salp [Occ=Once1, Dmd=ML] :: [Char] [LclId] = \s [] case ww1_salb of { FirstN -> let { sat_salj [Occ=Once1] :: [Char] [LclId] = \u [] case ww2_salc of { I# ww3_sali [Occ=Once1] -> $wshowSignedInt 11# ww3_sali x_salf; }; } in let { sat_salk [Occ=Once1] :: [Char] [LclId] = CCCS :! [showSpace1 sat_salj]; } in unpackAppendCString# $fReadLimitWindows16 sat_salk; Slice -> let { sat_saln [Occ=Once1] :: [Char] [LclId] = \u [] case ww2_salc of { I# ww3_salm [Occ=Once1] -> $wshowSignedInt 11# ww3_salm x_salf; }; } in let { sat_salo [Occ=Once1] :: [Char] [LclId] = CCCS :! [showSpace1 sat_saln]; } in unpackAppendCString# $fReadLimitWindows12 sat_salo; }; } in unpackAppendCString# $fShowLimitWindows2 sat_salp; } in case >=# [ww_sala 11#] of { __DEFAULT -> p_sale eta_sald; 1# -> let { sat_sals [Occ=Once1] :: String [LclId] = \u [] let { sat_salr [Occ=Once1] :: [Char] [LclId] = CCCS :! [$fShow(,)1 eta_sald]; } in p_sale sat_salr; } in : [$fShow(,)3 sat_sals]; }; $fShowLimitWindows_$cshowsPrec [InlPrag=[2]] :: forall a. Int -> LimitWindows a -> ShowS [GblId, Arity=3, Str=<1!P(L)><1!P(ML,ML)>, Unf=OtherCon []] = \r [a1_salt ds3_salu eta_salv] case a1_salt of { I# ww_salx [Occ=Once1] -> case ds3_salu of { LimitWindows ww1_salz [Occ=Once1] ww2_salA [Occ=Once1] -> $w$cshowsPrec ww_salx ww1_salz ww2_salA eta_salv; }; }; $fShowLimitWindows1 :: forall {a}. LimitWindows a -> ShowS [GblId, Arity=2, Str=<1!P(ML,ML)>, Unf=OtherCon []] = \r [ds3_salB eta_salC] case ds3_salB of { LimitWindows ww_salE [Occ=Once1] ww1_salF [Occ=Once1] -> $w$cshowsPrec 0# ww_salE ww1_salF eta_salC; }; $fShowLimitWindows_$cshowList :: forall a. [LimitWindows a] -> ShowS [GblId, Arity=2, Str=<1L>, Unf=OtherCon []] = \r [ls_salG s_salH] showList__ $fShowLimitWindows1 ls_salG s_salH; $fShowLimitWindows_$cshow :: forall a. LimitWindows a -> String [GblId, Arity=1, Str=<1!P(ML,ML)>, Unf=OtherCon []] = \r [x_salI] case x_salI of { LimitWindows ww_salK [Occ=Once1] ww1_salL [Occ=Once1] -> $w$cshowsPrec 0# ww_salK ww1_salL []; }; $fShowLimitWindows [InlPrag=CONLIKE] :: forall a. Show (LimitWindows a) [GblId[DFunId]] = CCS_DONT_CARE C:Show! [$fShowLimitWindows_$cshowsPrec $fShowLimitWindows_$cshow $fShowLimitWindows_$cshowList]; setLimit1 :: Int -> XConf -> XState -> State# RealWorld -> (# State# RealWorld, ((), XState) #) [GblId, Arity=4, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = \r [tgt_salM eta_salN eta1_salO void_0E] let { sat_salR [Occ=Once1] :: LimitChange [LclId] = \r [ds3_salQ] tgt_salM; } in case $wsendMessage $fLayoutModifierLimitWindowsa3 sat_salR eta_salN eta1_salO void# of { Solo# ww1_salU [Occ=Once1] -> let { sat_salV [Occ=Once1] :: ((), XState) [LclId] = CCCS (,)! [() ww1_salU]; } in Solo# [sat_salV]; }; setLimit :: Int -> X () [GblId, Arity=4, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = \r [eta_B0 eta_B1 eta_B2 void_0E] setLimit1 eta_B0 eta_B1 eta_B2 void#; $w$cpureMess1 [InlPrag=[2]] :: forall {a}. Selection a -> forall {a1}. Message a1 => a1 -> Maybe (Selection a) [GblId[StrictWorker([~, !])], Arity=3, Str=, Unf=OtherCon []] = \r [sel_salW ww_salX ww1_salY] case sameTypeRep ww_salX $fLayoutModifierLimitWindowsa3 of { False -> case sameTypeRep ww_salX $fLayoutClassTalla5 of { False -> Nothing []; True -> let { sat_samc [Occ=Once1] :: Selection a_sa4g [LclId] = \u [] case sel_salW of { Sel ds3_sam2 [Occ=Once1!] ds4_sam3 [Occ=Once1] ds5_sam4 [Occ=Once1] -> let { sat_samb [Occ=Once1] :: Int [LclId] = \u [] case ds3_sam2 of { I# x_sam6 [Occ=Once1] -> case ww1_salY of { I# y_sam8 [Occ=Once1] -> case +# [x_sam6 y_sam8] of y1_sam9 { __DEFAULT -> case <=# [0# y1_sam9] of { __DEFAULT -> $fShowLimitWindows3; 1# -> I# [y1_sam9]; }; }; }; }; } in Sel [sat_samb ds4_sam3 ds5_sam4]; }; } in Just [sat_samc]; }; True -> let { sat_samu [Occ=Once1] :: Selection a_sa4g [LclId] = \u [] case sel_salW of { Sel ds3_same ds4_samf [Occ=Once1] ds5_samg [Occ=Once1!] -> let { sat_samt [Occ=Once1] :: Int [LclId] = \u [] let { sat_samm [Occ=Once1] :: Int [LclId] = \u [] case ds3_same of { I# x_sami [Occ=Once1] -> case ds5_samg of { I# y_samk [Occ=Once1] -> case +# [x_sami y_samk] of sat_saml [Occ=Once1] { __DEFAULT -> I# [sat_saml]; }; }; }; } in case ww1_salY sat_samm of { I# x_samo [Occ=Once1] -> case ds3_same of { I# y_samq [Occ=Once1] -> case -# [x_samo y_samq] of y1_samr { __DEFAULT -> case <=# [0# y1_samr] of { __DEFAULT -> $fShowLimitWindows3; 1# -> I# [y1_samr]; }; }; }; }; } in Sel [ds3_same ds4_samf sat_samt]; }; } in Just [sat_samu]; }; $fLayoutModifierSelectiona_$cpureMess [InlPrag=[2]] :: forall a. Selection a -> SomeMessage -> Maybe (Selection a) [GblId, Arity=2, Str=<1!P(SL,ML)>, Unf=OtherCon []] = \r [sel_samv m_samw] case m_samw of { SomeMessage ww_samy [Occ=Once1] ww1_samz [Occ=Once1] -> $w$cpureMess1 sel_samv ww_samy ww1_samz; }; $fLayoutModifierSelectiona_$cmodifierDescription :: forall a. Selection a -> String [GblId, Arity=1, Str=, Cpr=1, Unf=OtherCon []] = \r [ds3_samA] [] []; $fLayoutModifierSelectiona_$cmodifyDescription :: forall a (l :: * -> *). LayoutClass l a => Selection a -> l a -> String [GblId, Arity=3, Str=<1P(A,A,A,A,A,A,A,A,1C1(L))>, Unf=OtherCon []] = \r [$dLayoutClass_samB m1_samC l1_samD] description $dLayoutClass_samB l1_samD; $fLayoutModifierSelectiona1 :: forall {a}. Selection a -> XConf -> XState -> State# RealWorld -> (# State# RealWorld, ((), XState) #) [GblId, Arity=4, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = \r [ds3_samE eta1_samF eta2_samG void_0E] let { sat_samI [Occ=Once1] :: ((), XState) [LclId] = CCCS (,)! [() eta2_samG]; } in Solo# [sat_samI]; $fLayoutModifierLimitWindowsa4 :: forall {a1}. XConf -> XState -> State# RealWorld -> (# State# RealWorld, (Maybe a1, XState) #) [GblId, Arity=3, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = \r [eta2_samJ eta_samK void_0E] let { sat_samM [Occ=Once1] :: (Maybe a1_i9F2, XState) [LclId] = CCCS (,)! [Nothing eta_samK]; } in Solo# [sat_samM]; $w$chandleMess1 [InlPrag=[2]] :: forall {a}. Selection a -> forall {a1}. Message a1 => a1 -> X (Maybe (Selection a)) [GblId[StrictWorker([~, !])], Arity=3, Str=, Unf=OtherCon []] = \r [m1_samN ww_samO ww1_samP] let-no-escape { fail_samQ [Occ=Once2!T[1], Dmd=MCM(L)] :: (# #) -> X (Maybe (Selection a_sa5C)) [LclId[JoinId(1)(Nothing)], Arity=1, Str=, Unf=OtherCon []] = \r [void_0E] case sameTypeRep ww_samO $fMessageLayoutMessages1 of { False -> let { eta1_samT [Occ=OnceL1] :: Maybe (Selection a_sa5C) [LclId] = \u [] $w$cpureMess1 m1_samN ww_samO ww1_samP; } in let { sat_samY [Occ=Once1] :: XConf -> XState -> State# RealWorld -> (# State# RealWorld, (Maybe (Selection a_sa5C), XState) #) [LclId] = \r [eta2_samU eta3_samV void_0E] let { sat_samX [Occ=Once1] :: (Maybe (Selection a_sa5C), XState) [LclId] = CCCS (,)! [eta1_samT eta3_samV]; } in Solo# [sat_samX]; } in sat_samY; True -> case ww1_samP of { Hide -> let { eta1_san0 [Occ=OnceL1] :: Maybe (Selection a_sa5C) [LclId] = \u [] $w$cpureMess1 m1_samN ww_samO Hide; } in let { sat_san5 [Occ=Once1] :: XConf -> XState -> State# RealWorld -> (# State# RealWorld, (Maybe (Selection a_sa5C), XState) #) [LclId] = \r [eta2_san1 eta3_san2 void_0E] let { sat_san4 [Occ=Once1] :: (Maybe (Selection a_sa5C), XState) [LclId] = CCCS (,)! [eta1_san0 eta3_san2]; } in Solo# [sat_san4]; } in sat_san5; ReleaseResources -> $fLayoutModifierLimitWindowsa4; }; }; } in case sameTypeRep ww_samO $fMessageLayoutMessages1 of { False -> fail_samQ (##); True -> case ww1_samP of { Hide -> $fLayoutModifierLimitWindowsa4; ReleaseResources -> fail_samQ (##); }; }; $fLayoutModifierSelectiona_$chandleMess [InlPrag=[2]] :: forall a. Selection a -> SomeMessage -> X (Maybe (Selection a)) [GblId, Arity=2, Str=<1!P(SL,L)>, Unf=OtherCon []] = \r [m1_san8 mess_san9] case mess_san9 of { SomeMessage ww_sanb [Occ=Once1] ww1_sanc [Occ=Once1] -> $w$chandleMess1 m1_san8 ww_sanb ww1_sanc; }; $fLayoutModifierSelectiona_$chandleMessOrMaybeModifyIt :: forall a. Selection a -> SomeMessage -> X (Maybe (Either (Selection a) SomeMessage)) [GblId, Arity=2, Str=, Unf=OtherCon []] = \r [m1_sand mess_sane] let { m2_sanf [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,LP(ML,ML)))))] :: X (Maybe (Selection a_a9qz)) [LclId] = \u [] case mess_sane of { SomeMessage ww_sanh [Occ=Once1] ww1_sani [Occ=Once1] -> $w$chandleMess1 m1_sand ww_sanh ww1_sani; }; } in let { sat_sanD [Occ=Once1] :: XConf -> StateT XState IO (Maybe (Either (Selection a_a9qz) SomeMessage)) [LclId] = \r [r1_sanj] let { m3_sank [Occ=OnceL1, Dmd=LCL(C1(P(L,LP(ML,ML))))] :: StateT XState IO (Maybe (Selection a_a9qz)) [LclId] = \u [] m2_sanf r1_sanj; } in let { sat_sanC [Occ=Once1] :: XState -> State# RealWorld -> (# State# RealWorld, (Maybe (Either (Selection a_a9qz) SomeMessage), XState) #) [LclId] = \r [s1_sanl void_0E] case m3_sank s1_sanl void# of { Solo# ipv1_sanp -> let { sat_sanA [Occ=Once1] :: XState [LclId] = \u [] case ipv1_sanp of { (,) _ [Occ=Dead] s'_sanz [Occ=Once1] -> s'_sanz; }; } in let { sat_sanw [Occ=Once1] :: Maybe (Either (Selection a_a9qz) SomeMessage) [LclId] = \u [] case ipv1_sanp of { (,) a1_sanr [Occ=Once1!] _ [Occ=Dead] -> case a1_sanr of { Nothing -> Nothing []; Just a2_sanu [Occ=Once1] -> let { sat_sanv [Occ=Once1] :: Either (Selection a_a9qz) SomeMessage [LclId] = CCCS Left! [a2_sanu]; } in Just [sat_sanv]; }; }; } in let { sat_sanB [Occ=Once1] :: (Maybe (Either (Selection a_a9qz) SomeMessage), XState) [LclId] = CCCS (,)! [sat_sanw sat_sanA]; } in Solo# [sat_sanB]; }; } in sat_sanC; } in sat_sanD; $fLayoutModifierSelectiona_$credoLayout :: forall a. Selection a -> Rectangle -> Maybe (Stack a) -> [(a, Rectangle)] -> X ([(a, Rectangle)], Maybe (Selection a)) [GblId, Arity=4, Str=, Unf=OtherCon []] = \r [m1_sanE r_sanF ms_sanG wrs_sanH] let { eta1_sanI [Occ=OnceL1] :: Maybe (Selection a_a9qz) [LclId] = \u [] case ms_sanG of { Nothing -> Nothing []; Just a1_sanK [Occ=Once1] -> let { sat_sanL [Occ=Once1] :: Selection a_a9qz [LclId] = \u [] update m1_sanE a1_sanK; } in Just [sat_sanL]; }; } in let { eta2_sanM [Occ=OnceL1] :: ([(a_a9qz, Rectangle)], Maybe (Selection a_a9qz)) [LclId, Unf=OtherCon []] = CCCS (,)! [wrs_sanH eta1_sanI]; } in let { sat_sanR [Occ=Once1] :: XConf -> XState -> State# RealWorld -> (# State# RealWorld, (([(a_a9qz, Rectangle)], Maybe (Selection a_a9qz)), XState) #) [LclId] = \r [eta3_sanN eta_sanO void_0E] let { sat_sanQ [Occ=Once1] :: (([(a_a9qz, Rectangle)], Maybe (Selection a_a9qz)), XState) [LclId] = CCCS (,)! [eta2_sanM eta_sanO]; } in Solo# [sat_sanQ]; } in sat_sanR; $fLayoutModifierSelectiona_$cmodifyLayoutWithUpdate :: forall a (l :: * -> *). LayoutClass l a => Selection a -> Workspace WorkspaceId (l a) a -> Rectangle -> X (([(a, Rectangle)], Maybe (l a)), Maybe (Selection a)) [GblId, Arity=4, Str=, Unf=OtherCon []] = \r [$dLayoutClass_sanS m1_sanT w_sanU r_sanV] let { eta_sanW [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,LP(ML,ML)))))] :: X ([(a_a9qz, Rectangle)], Maybe (l_a9rj a_a9qz)) [LclId] = \u [] case $dLayoutClass_sanS of { C:LayoutClass _ [Occ=Dead] _ [Occ=Dead] ww2_sao0 [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> $w$cmodifyLayout1 ww2_sao0 m1_sanT w_sanU r_sanV; }; } in let { sat_saop [Occ=Once1] :: XConf -> StateT XState IO (([(a_a9qz, Rectangle)], Maybe (l_a9rj a_a9qz)), Maybe (Selection a_a9qz)) [LclId] = \r [eta1_sao7] let { m2_sao8 [Occ=OnceL1, Dmd=LCL(C1(P(L,LP(ML,ML))))] :: StateT XState IO ([(a_a9qz, Rectangle)], Maybe (l_a9rj a_a9qz)) [LclId] = \u [] eta_sanW eta1_sao7; } in let { sat_saoo [Occ=Once1] :: XState -> State# RealWorld -> (# State# RealWorld, ((([(a_a9qz, Rectangle)], Maybe (l_a9rj a_a9qz)), Maybe (Selection a_a9qz)), XState) #) [LclId] = \r [s1_sao9 void_0E] case m2_sao8 s1_sao9 void# of { Solo# ipv1_saod -> let { sat_saom [Occ=Once1] :: XState [LclId] = \u [] case ipv1_saod of { (,) _ [Occ=Dead] s'_saol [Occ=Once1] -> s'_saol; }; } in let { sat_saoh [Occ=Once1] :: ([(a_a9qz, Rectangle)], Maybe (l_a9rj a_a9qz)) [LclId] = \u [] case ipv1_saod of { (,) a1_saof [Occ=Once1] _ [Occ=Dead] -> a1_saof; }; } in let { sat_saoi [Occ=Once1] :: (([(a_a9qz, Rectangle)], Maybe (l_a9rj a_a9qz)), Maybe (Selection a_a9qz)) [LclId] = CCCS (,)! [sat_saoh Nothing]; } in let { sat_saon [Occ=Once1] :: ((([(a_a9qz, Rectangle)], Maybe (l_a9rj a_a9qz)), Maybe (Selection a_a9qz)), XState) [LclId] = CCCS (,)! [sat_saoi sat_saom]; } in Solo# [sat_saon]; }; } in sat_saoo; } in sat_saop; $fLayoutModifierSelectiona [InlPrag=CONLIKE] :: forall a. LayoutModifier Selection a [GblId[DFunId]] = CCS_DONT_CARE C:LayoutModifier! [$fShowSelection $fReadSelection $fLayoutModifierSelectiona_$cmodifyLayout $fLayoutModifierSelectiona_$cmodifyLayoutWithUpdate $fLayoutModifierSelectiona_$chandleMess $fLayoutModifierSelectiona_$chandleMessOrMaybeModifyIt $fLayoutModifierSelectiona_$cpureMess $fLayoutModifierSelectiona_$credoLayout $fLayoutModifierSelectiona_$cpureModifier $fLayoutModifierSelectiona1 $fLayoutModifierSelectiona1 $fLayoutModifierSelectiona_$cmodifierDescription $fLayoutModifierSelectiona_$cmodifyDescription]; $w$cpureMess [InlPrag=[2]] :: forall {a}. SliceStyle -> Int -> forall {a1}. Message a1 => a1 -> Maybe (LimitWindows a) [GblId[StrictWorker([~, ~, !])], Arity=4, Str=<1L>, Unf=OtherCon []] = \r [ww_saoq ww1_saor ww2_saos ww3_saot] case sameTypeRep ww2_saos $fLayoutModifierLimitWindowsa3 of { False -> Nothing []; True -> case ww3_saot ww1_saor of wild_saov [Occ=Once1] { I# x_saow -> case ww1_saor of { I# y_saoy [Occ=Once1] -> case /=# [x_saow y_saoy] of { __DEFAULT -> Nothing []; 1# -> case >=# [x_saow 1#] of { __DEFAULT -> Nothing []; 1# -> let { sat_saoB [Occ=Once1] :: LimitWindows a_sa67 [LclId] = CCCS LimitWindows! [ww_saoq wild_saov]; } in Just [sat_saoB]; }; }; }; }; }; $fLayoutModifierLimitWindowsa_$cpureMess [InlPrag=[2]] :: forall a. LimitWindows a -> SomeMessage -> Maybe (LimitWindows a) [GblId, Arity=2, Str=<1!P(L,L)><1!P(1L,ML)>, Unf=OtherCon []] = \r [ds3_saoC eta_saoD] case ds3_saoC of { LimitWindows ww_saoF [Occ=Once1] ww1_saoG [Occ=Once1] -> case eta_saoD of { SomeMessage ww2_saoI [Occ=Once1] ww3_saoJ [Occ=Once1] -> $w$cpureMess ww_saoF ww1_saoG ww2_saoI ww3_saoJ; }; }; $fLayoutModifierLimitWindowsa_$cpureModifier :: forall a. LimitWindows a -> Rectangle -> Maybe (Stack a) -> [(a, Rectangle)] -> ([(a, Rectangle)], Maybe (LimitWindows a)) [GblId, Arity=4, Str=, Cpr=1(, 1), Unf=OtherCon []] = \r [ds3_saoK ds4_saoL ds5_saoM wrs_saoN] (,) [wrs_saoN Nothing]; $fLayoutModifierLimitWindowsa_$cmodifierDescription :: forall a. LimitWindows a -> String [GblId, Arity=1, Str=, Cpr=1, Unf=OtherCon []] = \r [ds3_saoO] [] []; $fLayoutModifierLimitWindowsa_$cmodifyDescription :: forall a (l :: * -> *). LayoutClass l a => LimitWindows a -> l a -> String [GblId, Arity=3, Str=<1P(A,A,A,A,A,A,A,A,1C1(L))>, Unf=OtherCon []] = \r [$dLayoutClass_saoP m1_saoQ l1_saoR] description $dLayoutClass_saoP l1_saoR; $fLayoutModifierLimitWindowsa1 :: forall {a}. LimitWindows a -> XConf -> XState -> State# RealWorld -> (# State# RealWorld, ((), XState) #) [GblId, Arity=4, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = \r [ds3_saoS eta1_saoT eta2_saoU void_0E] let { sat_saoW [Occ=Once1] :: ((), XState) [LclId] = CCCS (,)! [() eta2_saoU]; } in Solo# [sat_saoW]; $w$chandleMess [InlPrag=[2]] :: forall {a}. LimitWindows a -> forall {a1}. Message a1 => a1 -> X (Maybe (LimitWindows a)) [GblId[StrictWorker([~, !])], Arity=3, Str=, Unf=OtherCon []] = \r [m1_saoX ww_saoY ww1_saoZ] let-no-escape { fail_sap0 [Occ=Once2!T[1], Dmd=MCM(L)] :: (# #) -> X (Maybe (LimitWindows a_sa7J)) [LclId[JoinId(1)(Nothing)], Arity=1, Str=, Unf=OtherCon []] = \r [void_0E] case sameTypeRep ww_saoY $fMessageLayoutMessages1 of { False -> let { eta1_sap3 [Occ=OnceL1] :: Maybe (LimitWindows a_sa7J) [LclId] = \u [] case m1_saoX of { LimitWindows ww2_sap5 [Occ=Once1] ww3_sap6 -> case sameTypeRep ww_saoY $fLayoutModifierLimitWindowsa3 of { False -> Nothing []; True -> case ww1_saoZ ww3_sap6 of wild4_sap8 [Occ=Once1] { I# x_sap9 -> case ww3_sap6 of { I# y_sapb [Occ=Once1] -> case /=# [x_sap9 y_sapb] of { __DEFAULT -> Nothing []; 1# -> case >=# [x_sap9 1#] of { __DEFAULT -> Nothing []; 1# -> let { sat_sape [Occ=Once1] :: LimitWindows a_sa7J [LclId] = CCCS LimitWindows! [ww2_sap5 wild4_sap8]; } in Just [sat_sape]; }; }; }; }; }; }; } in let { sat_sapj [Occ=Once1] :: XConf -> XState -> State# RealWorld -> (# State# RealWorld, (Maybe (LimitWindows a_sa7J), XState) #) [LclId] = \r [eta2_sapf eta3_sapg void_0E] let { sat_sapi [Occ=Once1] :: (Maybe (LimitWindows a_sa7J), XState) [LclId] = CCCS (,)! [eta1_sap3 eta3_sapg]; } in Solo# [sat_sapi]; } in sat_sapj; True -> case ww1_saoZ of { Hide -> let { eta1_sapl [Occ=OnceL1] :: Maybe (LimitWindows a_sa7J) [LclId] = \u [] case m1_saoX of { LimitWindows ww2_sapn [Occ=Once1] ww3_sapo -> case sameTypeRep ww_saoY $fLayoutModifierLimitWindowsa3 of { False -> Nothing []; True -> case Hide [ww3_sapo] of wild9_sapq [Occ=Once1] { I# x_sapr -> case ww3_sapo of { I# y_sapt [Occ=Once1] -> case /=# [x_sapr y_sapt] of { __DEFAULT -> Nothing []; 1# -> case >=# [x_sapr 1#] of { __DEFAULT -> Nothing []; 1# -> let { sat_sapw [Occ=Once1] :: LimitWindows a_sa7J [LclId] = CCCS LimitWindows! [ww2_sapn wild9_sapq]; } in Just [sat_sapw]; }; }; }; }; }; }; } in let { sat_sapB [Occ=Once1] :: XConf -> XState -> State# RealWorld -> (# State# RealWorld, (Maybe (LimitWindows a_sa7J), XState) #) [LclId] = \r [eta2_sapx eta3_sapy void_0E] let { sat_sapA [Occ=Once1] :: (Maybe (LimitWindows a_sa7J), XState) [LclId] = CCCS (,)! [eta1_sapl eta3_sapy]; } in Solo# [sat_sapA]; } in sat_sapB; ReleaseResources -> $fLayoutModifierLimitWindowsa4; }; }; } in case sameTypeRep ww_saoY $fMessageLayoutMessages1 of { False -> fail_sap0 (##); True -> case ww1_saoZ of { Hide -> $fLayoutModifierLimitWindowsa4; ReleaseResources -> fail_sap0 (##); }; }; $fLayoutModifierLimitWindowsa_$chandleMess [InlPrag=[2]] :: forall a. LimitWindows a -> SomeMessage -> X (Maybe (LimitWindows a)) [GblId, Arity=2, Str=<1!P(SL,L)>, Unf=OtherCon []] = \r [m1_sapE mess_sapF] case mess_sapF of { SomeMessage ww_sapH [Occ=Once1] ww1_sapI [Occ=Once1] -> $w$chandleMess m1_sapE ww_sapH ww1_sapI; }; $fLayoutModifierLimitWindowsa_$chandleMessOrMaybeModifyIt :: forall a. LimitWindows a -> SomeMessage -> X (Maybe (Either (LimitWindows a) SomeMessage)) [GblId, Arity=2, Str=, Unf=OtherCon []] = \r [m1_sapJ mess_sapK] let { m2_sapL [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,LP(ML,ML)))))] :: X (Maybe (LimitWindows a_a9tO)) [LclId] = \u [] case mess_sapK of { SomeMessage ww_sapN [Occ=Once1] ww1_sapO [Occ=Once1] -> $w$chandleMess m1_sapJ ww_sapN ww1_sapO; }; } in let { sat_saq9 [Occ=Once1] :: XConf -> StateT XState IO (Maybe (Either (LimitWindows a_a9tO) SomeMessage)) [LclId] = \r [r1_sapP] let { m3_sapQ [Occ=OnceL1, Dmd=LCL(C1(P(L,LP(ML,ML))))] :: StateT XState IO (Maybe (LimitWindows a_a9tO)) [LclId] = \u [] m2_sapL r1_sapP; } in let { sat_saq8 [Occ=Once1] :: XState -> State# RealWorld -> (# State# RealWorld, (Maybe (Either (LimitWindows a_a9tO) SomeMessage), XState) #) [LclId] = \r [s1_sapR void_0E] case m3_sapQ s1_sapR void# of { Solo# ipv1_sapV -> let { sat_saq6 [Occ=Once1] :: XState [LclId] = \u [] case ipv1_sapV of { (,) _ [Occ=Dead] s'_saq5 [Occ=Once1] -> s'_saq5; }; } in let { sat_saq2 [Occ=Once1] :: Maybe (Either (LimitWindows a_a9tO) SomeMessage) [LclId] = \u [] case ipv1_sapV of { (,) a1_sapX [Occ=Once1!] _ [Occ=Dead] -> case a1_sapX of { Nothing -> Nothing []; Just a2_saq0 [Occ=Once1] -> let { sat_saq1 [Occ=Once1] :: Either (LimitWindows a_a9tO) SomeMessage [LclId] = CCCS Left! [a2_saq0]; } in Just [sat_saq1]; }; }; } in let { sat_saq7 [Occ=Once1] :: (Maybe (Either (LimitWindows a_a9tO) SomeMessage), XState) [LclId] = CCCS (,)! [sat_saq2 sat_saq6]; } in Solo# [sat_saq7]; }; } in sat_saq8; } in sat_saq9; $fLayoutModifierLimitWindowsa2 :: forall {a}. LimitWindows a -> Rectangle -> Maybe (Stack a) -> [(a, Rectangle)] -> XConf -> XState -> State# RealWorld -> (# State# RealWorld, (([(a, Rectangle)], Maybe (LimitWindows a)), XState) #) [GblId, Arity=7, Str=, Cpr=1(, 1(1(, 1),)), Unf=OtherCon []] = \r [m1_saqa r_saqb ms_saqc wrs_saqd eta_saqe eta1_saqf void_0E] let { sat_saqh [Occ=Once1] :: ([(a_a9tO, Rectangle)], Maybe (LimitWindows a_a9tO)) [LclId] = CCCS (,)! [wrs_saqd Nothing]; } in let { sat_saqi [Occ=Once1] :: (([(a_a9tO, Rectangle)], Maybe (LimitWindows a_a9tO)), XState) [LclId] = CCCS (,)! [sat_saqh eta1_saqf]; } in Solo# [sat_saqi]; $fLayoutModifierLimitWindowsa_$cmodifyLayoutWithUpdate :: forall a (l :: * -> *). LayoutClass l a => LimitWindows a -> Workspace WorkspaceId (l a) a -> Rectangle -> X (([(a, Rectangle)], Maybe (l a)), Maybe (LimitWindows a)) [GblId, Arity=4, Str=, Unf=OtherCon []] = \r [$dLayoutClass_saqj m1_saqk w_saql r_saqm] let { eta_saqn [Occ=OnceL1, Dmd=LCL(CL(C1(P(L,LP(ML,ML)))))] :: X ([(a_a9tO, Rectangle)], Maybe (l_a9uF a_a9tO)) [LclId] = \u [] case $dLayoutClass_saqj of { C:LayoutClass _ [Occ=Dead] _ [Occ=Dead] ww2_saqr [Occ=Once1] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] _ [Occ=Dead] -> case m1_saqk of { LimitWindows ww9_saqz [Occ=Once1] ww10_saqA [Occ=Once1] -> $w$cmodifyLayout ww2_saqr ww9_saqz ww10_saqA w_saql r_saqm; }; }; } in let { sat_saqT [Occ=Once1] :: XConf -> StateT XState IO (([(a_a9tO, Rectangle)], Maybe (l_a9uF a_a9tO)), Maybe (LimitWindows a_a9tO)) [LclId] = \r [eta1_saqB] let { m2_saqC [Occ=OnceL1, Dmd=LCL(C1(P(L,LP(ML,ML))))] :: StateT XState IO ([(a_a9tO, Rectangle)], Maybe (l_a9uF a_a9tO)) [LclId] = \u [] eta_saqn eta1_saqB; } in let { sat_saqS [Occ=Once1] :: XState -> State# RealWorld -> (# State# RealWorld, ((([(a_a9tO, Rectangle)], Maybe (l_a9uF a_a9tO)), Maybe (LimitWindows a_a9tO)), XState) #) [LclId] = \r [s1_saqD void_0E] case m2_saqC s1_saqD void# of { Solo# ipv1_saqH -> let { sat_saqQ [Occ=Once1] :: XState [LclId] = \u [] case ipv1_saqH of { (,) _ [Occ=Dead] s'_saqP [Occ=Once1] -> s'_saqP; }; } in let { sat_saqL [Occ=Once1] :: ([(a_a9tO, Rectangle)], Maybe (l_a9uF a_a9tO)) [LclId] = \u [] case ipv1_saqH of { (,) a1_saqJ [Occ=Once1] _ [Occ=Dead] -> a1_saqJ; }; } in let { sat_saqM [Occ=Once1] :: (([(a_a9tO, Rectangle)], Maybe (l_a9uF a_a9tO)), Maybe (LimitWindows a_a9tO)) [LclId] = CCCS (,)! [sat_saqL Nothing]; } in let { sat_saqR [Occ=Once1] :: ((([(a_a9tO, Rectangle)], Maybe (l_a9uF a_a9tO)), Maybe (LimitWindows a_a9tO)), XState) [LclId] = CCCS (,)! [sat_saqM sat_saqQ]; } in Solo# [sat_saqR]; }; } in sat_saqS; } in sat_saqT; $fLayoutModifierLimitWindowsa [InlPrag=CONLIKE] :: forall a. LayoutModifier LimitWindows a [GblId[DFunId]] = CCS_DONT_CARE C:LayoutModifier! [$fShowLimitWindows $fReadLimitWindows $fLayoutModifierLimitWindowsa_$cmodifyLayout $fLayoutModifierLimitWindowsa_$cmodifyLayoutWithUpdate $fLayoutModifierLimitWindowsa_$chandleMess $fLayoutModifierLimitWindowsa_$chandleMessOrMaybeModifyIt $fLayoutModifierLimitWindowsa_$cpureMess $fLayoutModifierLimitWindowsa2 $fLayoutModifierLimitWindowsa_$cpureModifier $fLayoutModifierLimitWindowsa1 $fLayoutModifierLimitWindowsa1 $fLayoutModifierLimitWindowsa_$cmodifierDescription $fLayoutModifierLimitWindowsa_$cmodifyDescription]; decreaseLimit3 :: Int [GblId, Unf=OtherCon []] = CCS_DONT_CARE I#! [1#]; decreaseLimit2 :: Int -> Int [GblId, Arity=1, Str=<1!P(1L)>, Cpr=1, Unf=OtherCon []] = \r [x_saqU] case x_saqU of { I# x1_saqW [Occ=Once1!] -> case x1_saqW of wild1_saqX [Occ=Once1] { __DEFAULT -> case -# [wild1_saqX 1#] of y1_saqY { __DEFAULT -> case <=# [1# y1_saqY] of { __DEFAULT -> decreaseLimit3; 1# -> I# [y1_saqY]; }; }; -9223372036854775808# -> $fEnumInt1; }; }; decreaseLimit1 :: XConf -> XState -> State# RealWorld -> (# State# RealWorld, ((), XState) #) [GblId, Arity=3, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = \r [eta_sar0 eta1_sar1 void_0E] case $wsendMessage $fLayoutModifierLimitWindowsa3 decreaseLimit2 eta_sar0 eta1_sar1 void# of { Solo# ww1_sar5 [Occ=Once1] -> let { sat_sar6 [Occ=Once1] :: ((), XState) [LclId] = CCCS (,)! [() ww1_sar5]; } in Solo# [sat_sar6]; }; decreaseLimit :: X () [GblId, Arity=3, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = \r [eta_B0 eta_B1 void_0E] decreaseLimit1 eta_B0 eta_B1 void#; increaseLimit1 :: XConf -> XState -> State# RealWorld -> (# State# RealWorld, ((), XState) #) [GblId, Arity=3, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = \r [eta_sar7 eta1_sar8 void_0E] case $wsendMessage $fLayoutModifierLimitWindowsa3 $fEnumInt_$csucc eta_sar7 eta1_sar8 void# of { Solo# ww1_sarc [Occ=Once1] -> let { sat_sard [Occ=Once1] :: ((), XState) [LclId] = CCCS (,)! [() ww1_sarc]; } in Solo# [sat_sard]; }; increaseLimit :: X () [GblId, Arity=3, Str=, Cpr=1(, 1(1,)), Unf=OtherCon []] = \r [eta_B0 eta_B1 void_0E] increaseLimit1 eta_B0 eta_B1 void#; Sel [InlPrag=CONLIKE] :: forall a. Int %1 -> Int %1 -> Int %1 -> Selection a [GblId[DataCon], Arity=3, Caf=NoCafRefs, Unf=OtherCon []] = \r [eta_B0 eta_B1 eta_B2] Sel [eta_B0 eta_B1 eta_B2]; LimitWindows [InlPrag=CONLIKE] :: forall a. SliceStyle %1 -> Int %1 -> LimitWindows a [GblId[DataCon], Arity=2, Caf=NoCafRefs, Unf=OtherCon []] = \r [eta_B0 eta_B1] LimitWindows [eta_B0 eta_B1]; FirstN [InlPrag=CONLIKE] :: SliceStyle [GblId[DataCon], Caf=NoCafRefs, Unf=OtherCon []] = CCS_DONT_CARE FirstN! []; Slice [InlPrag=CONLIKE] :: SliceStyle [GblId[DataCon], Caf=NoCafRefs, Unf=OtherCon []] = CCS_DONT_CARE Slice! []; *** End of Offense *** : error: Compilation had errors : error: ExitFailure 1 Error: cabal: Failed to build xmonad-contrib-0.17.1.