[(a :: Text.ParserCombinators.ReadP.P [GHC.Types.Char] [GblId, Str=DmdType] = \u srt:(0,*bitmap*) [] GHC.Read.$wa18 Text.ParserCombinators.ReadP.$fMonadP_$creturn;, [(a, [GHC.Read.$wa18])]), (lvl :: Text.ParserCombinators.ReadP.ReadS GHC.Base.String [GblId, Arity=1, Str=DmdType, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B1] Text.ParserCombinators.ReadP.run a eta_B1;, [(lvl, [a])]), (a1 :: forall b. (GHC.Base.String -> Text.ParserCombinators.ReadP.P b) -> Text.ParserCombinators.ReadP.P b [GblId, Arity=1, Str=DmdType, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B1] Text.ParserCombinators.ReadP.readS_to_P1 lvl eta_B1;, [(a1, [a])]), (a2 :: [GHC.Types.Char] -> Data.Typeable.Internal.TypeRep [GblId, Str=DmdType] = \u srt:(0,*bitmap*) [] Data.Typeable.Internal.typeOfDefault Data.Typeable.Internal.$fTypeable1[]_$ctypeOf1 Data.Typeable.Internal.$fTypeableChar_$ctypeOf;, [(a2, [Data.Typeable.Internal.typeOfDefault, Data.Typeable.Internal.$fTypeable1[]_$ctypeOf1, Data.Typeable.Internal.$fTypeableChar_$ctypeOf])]), (lvl1 :: forall a'. a' [GblId, Str=DmdType b] = \u srt:(0,*bitmap*) [] GHC.Err.undefined;, [(lvl1, [GHC.Err.undefined])]), (lvl2 :: GHC.Types.Char -> GHC.Types.Bool [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType U(L), Unf=OtherCon []] = \r [x] case x of _ { GHC.Types.C# c2 -> case c2 of _ { __DEFAULT -> GHC.Types.True []; ')' -> GHC.Types.False []; }; };, [(lvl2, [])]), (a3 :: forall b. (GHC.Base.String -> Text.ParserCombinators.ReadP.P b) -> Text.ParserCombinators.ReadP.P b [GblId, Arity=1, Str=DmdType, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B1] Text.ParserCombinators.ReadP.readS_to_P1 GHC.Read.lex eta_B1;, [(a3, [GHC.Read.lex])]), (a4 :: [GHC.Types.Char] [GblId, Str=DmdType] = \u [] GHC.CString.unpackCString# "()";, [(a4, [])]), (a5 :: forall b. (GHC.Base.String -> Text.ParserCombinators.ReadP.P b) -> Text.ParserCombinators.ReadP.P b [GblId, Arity=1, Str=DmdType, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B1] Text.ParserCombinators.ReadP.string1 a4 eta_B1;, [(a5, [a4])]), (a6 :: [GHC.Types.Char] [GblId, Str=DmdType] = \u [] GHC.CString.unpackCString# "[]";, [(a6, [])]), (a7 :: forall b. (GHC.Base.String -> Text.ParserCombinators.ReadP.P b) -> Text.ParserCombinators.ReadP.P b [GblId, Arity=1, Str=DmdType, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B1] Text.ParserCombinators.ReadP.string1 a6 eta_B1;, [(a7, [a6])]), (a8 :: forall b1. (GHC.Base.String -> Text.ParserCombinators.ReadP.P b1) -> Text.ParserCombinators.ReadP.P b1 [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType L, Unf=OtherCon []] = \r [k] let { sat_s6T8 :: GHC.Types.Char -> Text.ParserCombinators.ReadP.P b1 [LclId] = \r [a11] case a11 of wild1 { GHC.Types.C# c2 -> case c2 of _ { __DEFAULT -> Text.ParserCombinators.ReadP.Fail []; '(' -> let { sat_s6Td :: GHC.Types.Char -> Text.ParserCombinators.ReadP.P b1 [LclId] = \r [a12] case a12 of wild2 { GHC.Types.C# c1 -> case c1 of _ { __DEFAULT -> let { sat_s6Tc :: GHC.Base.String -> Text.ParserCombinators.ReadP.P b1 [LclId] = \r [a13] let { str :: GHC.Base.String [LclId, Str=DmdType, Unf=OtherCon []] = NO_CCS :! [wild2 a13]; } in let { sat_s6Ta :: GHC.Types.Char -> Text.ParserCombinators.ReadP.P b1 [LclId] = \r [a14] case a14 of wild4 { GHC.Types.C# c3 -> case c3 of _ { __DEFAULT -> Text.ParserCombinators.ReadP.Fail []; ')' -> let { sat_s6PL :: [GHC.Types.Char] [LclId] = \u [] let { sat_s6PI :: [GHC.Types.Char] [LclId] = NO_CCS :! [wild4 GHC.Types.[]]; } in GHC.Base.++ str sat_s6PI; } in let { sat_s6Tb :: GHC.Base.String [LclId] = NO_CCS :! [wild1 sat_s6PL]; } in k sat_s6Tb; }; }; } in Text.ParserCombinators.ReadP.Get [sat_s6Ta]; } in Text.ParserCombinators.ReadP.munch2 lvl2 sat_s6Tc; ')' -> Text.ParserCombinators.ReadP.Fail []; }; }; } in Text.ParserCombinators.ReadP.Get [sat_s6Td]; }; }; } in Text.ParserCombinators.ReadP.Get [sat_s6T8];, [(a8, [])]), (a9 :: forall b. (GHC.Base.String -> Text.ParserCombinators.ReadP.P b) -> Text.ParserCombinators.ReadP.P b [GblId, Arity=1, Str=DmdType, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B1] Text.ParserCombinators.ReadP.<++1 a8 a3 eta_B1;, [(a9, [Text.ParserCombinators.ReadP.<++1, GHC.Read.lex])]), (a10 :: forall b. (GHC.Base.String -> Text.ParserCombinators.ReadP.P b) -> Text.ParserCombinators.ReadP.P b [GblId, Arity=1, Str=DmdType, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B1] Text.ParserCombinators.ReadP.<++1 a5 a9 eta_B1;, [(a10, [Text.ParserCombinators.ReadP.<++1, a4, a9])]), (lvl3 :: Data.Typeable.Internal.TypeRep [GblId] = \u srt:(0,*bitmap*) [] a2 Data.Typeable.gcast3;, [(lvl3, [Data.Typeable.gcast3, a2])]), (lvl4 :: forall b r. Data.Data.Data b => Text.ParserCombinators.ReadP.ReadP (b -> r) -> Text.ParserCombinators.ReadP.ReadP r [GblId, Arity=2, Unf=OtherCon []] = \r srt:(0,*bitmap*) [$dData c] let { lvl150 [Dmd=Just L] :: Text.ParserCombinators.ReadP.ReadP b [LclId, Str=DmdType] = \u srt:(0,*bitmap*) [] Data.Generics.Text.gread_gread' $dData; } in let { sat_s6Tg :: forall b1. (r -> Text.ParserCombinators.ReadP.P b1) -> Text.ParserCombinators.ReadP.P b1 [LclId] = \r [k] let { sat_s6Q8 :: (b -> r) -> Text.ParserCombinators.ReadP.P b1 [LclId] = \r [a11] let { sat_s6Q7 :: b -> Text.ParserCombinators.ReadP.P b1 [LclId] = \r [a12] let { sat_s6Q6 :: r [LclId] = \u [] a11 a12; } in k sat_s6Q6; } in lvl150 sat_s6Q7; } in c sat_s6Q8; } in sat_s6Tg; Data.Generics.Text.gread_gread' [Occ=LoopBreaker] :: forall a'. Data.Data.Data a' => Text.ParserCombinators.ReadP.ReadP a' [GblId, Arity=1, Str=DmdType S(SLLLLLLLLLLLLLL), Unf=OtherCon []] = \r srt:(0,*bitmap*) [$dData] case lvl3 of _ { Data.Typeable.Internal.TypeRep rb rb1 ds2 ds3 -> case Data.Data.$p1Data $dData Data.Typeable.gcast3 of _ { Data.Typeable.Internal.TypeRep rb2 rb3 _ _ -> let { myDataType [Dmd=Just D(TT)] :: Data.Data.DataType [LclId, Str=DmdType] = \u srt:(5,*bitmap*) [] Data.Data.dataTypeOf $dData lvl1; } in let { a11 :: forall b1. (a' -> Text.ParserCombinators.ReadP.P b1) -> Text.ParserCombinators.ReadP.P b1 [LclId, Arity=1, Str=DmdType L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [k] let { $wk :: Text.ParserCombinators.ReadP.P b1 [LclId, Str=DmdType] = \u srt:(0,*bitmap*) [] let { lvl9 :: a' -> Text.ParserCombinators.ReadP.P b1 [LclId, Arity=1, Unf=OtherCon []] = \r srt:(2,*bitmap*) [a12] let { lvl10 :: Text.ParserCombinators.ReadP.P b1 [LclId] = \u [] k a12; } in let { k1 :: () -> Text.ParserCombinators.ReadP.P b1 [LclId, Arity=1, Str=DmdType A, Unf=OtherCon []] = \r [a13] lvl10; } in let { a13 :: GHC.Base.String -> Text.ParserCombinators.ReadP.P b1 [LclId, Arity=1, Unf=OtherCon []] = \r srt:(2,*bitmap*) [a14] Text.ParserCombinators.ReadP.skipSpaces_skip a14 k1; } in let { lvl11 :: Text.ParserCombinators.ReadP.P b1 [LclId, Unf=OtherCon []] = NO_CCS Text.ParserCombinators.ReadP.Look! [a13]; } in let { a14 :: GHC.Types.Char -> Text.ParserCombinators.ReadP.P b1 [LclId, Arity=1, Unf=OtherCon []] = \r [a15] case a15 of _ { GHC.Types.C# c2 -> case c2 of _ { __DEFAULT -> Text.ParserCombinators.ReadP.Fail []; ')' -> lvl11; }; }; } in let { $wk1 :: Text.ParserCombinators.ReadP.P b1 [LclId, Str=DmdType, Unf=OtherCon []] = NO_CCS Text.ParserCombinators.ReadP.Get! [a14]; } in let { k2 [InlPrag=INLINE[0]] :: () -> Text.ParserCombinators.ReadP.P b1 [LclId, Arity=1, Str=DmdType A, Unf=OtherCon []] = \r [w] $wk1; } in let { sat_s6Th :: GHC.Base.String -> Text.ParserCombinators.ReadP.P b1 [LclId] = \r srt:(2,*bitmap*) [a15] Text.ParserCombinators.ReadP.skipSpaces_skip a15 k2; } in Text.ParserCombinators.ReadP.Look [sat_s6Th]; } in let { sat_s6Rr :: GHC.Base.String -> Text.ParserCombinators.ReadP.P b1 [LclId] = \r srt:(0,*bitmap*) [a12] case myDataType of _ { Data.Data.DataType ww ww1 -> case Data.Data.$wreadConstr ww ww1 a12 of _ { Data.Maybe.Nothing -> Text.ParserCombinators.ReadP.Fail []; Data.Maybe.Just x -> case $dData of _ { Data.Data.D:Data ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 ww11 ww12 ww13 ww14 ww15 ww16 -> ww4 lvl4 Text.ParserCombinators.ReadP.$fMonadReadP2 x lvl9; }; }; }; } in Text.ParserCombinators.ReadP.<++1 a7 a10 sat_s6Rr; } in let { k1 [InlPrag=INLINE[0]] :: () -> Text.ParserCombinators.ReadP.P b1 [LclId, Arity=1, Str=DmdType A, Unf=OtherCon []] = \r [w] $wk; } in let { a12 :: GHC.Base.String -> Text.ParserCombinators.ReadP.P b1 [LclId, Arity=1, Unf=OtherCon []] = \r srt:(2,*bitmap*) [a13] Text.ParserCombinators.ReadP.skipSpaces_skip a13 k1; } in let { lvl9 :: Text.ParserCombinators.ReadP.P b1 [LclId, Unf=OtherCon []] = NO_CCS Text.ParserCombinators.ReadP.Look! [a12]; } in let { a13 :: GHC.Types.Char -> Text.ParserCombinators.ReadP.P b1 [LclId, Arity=1, Unf=OtherCon []] = \r [a14] case a14 of _ { GHC.Types.C# c2 -> case c2 of _ { __DEFAULT -> Text.ParserCombinators.ReadP.Fail []; '(' -> lvl9; }; }; } in let { $wk1 :: Text.ParserCombinators.ReadP.P b1 [LclId, Str=DmdType, Unf=OtherCon []] = NO_CCS Text.ParserCombinators.ReadP.Get! [a13]; } in let { k2 [InlPrag=INLINE[0]] :: () -> Text.ParserCombinators.ReadP.P b1 [LclId, Arity=1, Str=DmdType A, Unf=OtherCon []] = \r [w] $wk1; } in let { sat_s6Tw :: GHC.Base.String -> Text.ParserCombinators.ReadP.P b1 [LclId] = \r srt:(2,*bitmap*) [a14] Text.ParserCombinators.ReadP.skipSpaces_skip a14 k2; } in Text.ParserCombinators.ReadP.Look [sat_s6Tw]; } in case eqWord# [rb rb2] of _ { GHC.Types.False -> a11; GHC.Types.True -> case eqWord# [rb1 rb3] of _ { GHC.Types.False -> a11; GHC.Types.True -> a1; }; }; }; };, [(lvl4, [Data.Generics.Text.gread_gread']), (Data.Generics.Text.gread_gread', [Data.Data.$wreadConstr, Data.Typeable.gcast3, Text.ParserCombinators.ReadP.skipSpaces_skip, Text.ParserCombinators.ReadP.<++1, a, lvl1, a6, a10, lvl3, lvl4])]), (Data.Generics.Text.gread :: forall a. Data.Data.Data a => Text.ParserCombinators.ReadP.ReadS a [GblId, Arity=1, Str=DmdType L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [$dData] let { sat_s6TM :: Text.ParserCombinators.ReadP.P a [LclId] = \u srt:(0,*bitmap*) [] Data.Generics.Text.gread_gread' $dData Text.ParserCombinators.ReadP.$fMonadP_$creturn; } in Text.ParserCombinators.ReadP.run sat_s6TM;, [(Data.Generics.Text.gread, [Data.Generics.Text.gread_gread'])]), (lvl5 :: GHC.Types.Char [GblId, Caf=NoCafRefs, Str=DmdType m, Unf=OtherCon []] = NO_CCS GHC.Types.C#! [')'];, [(lvl5, [])]), (lvl6 :: GHC.Types.Char [GblId, Caf=NoCafRefs, Str=DmdType m, Unf=OtherCon []] = NO_CCS GHC.Types.C#! [' '];, [(lvl6, [])]), (lvl7 :: GHC.Types.Char [GblId, Caf=NoCafRefs, Str=DmdType m, Unf=OtherCon []] = NO_CCS GHC.Types.C#! ['('];, [(lvl7, [])]), (go :: [GHC.Base.String -> GHC.Base.String] -> GHC.Base.String -> GHC.Base.String [GblId, Arity=2, Caf=NoCafRefs, Str=DmdType SL, Unf=OtherCon []] = sat-only \r [ds eta] case ds of _ { [] -> eta; : y ys -> let { sat_s6TO :: GHC.Base.String [LclId] = \u [] go ys eta; } in y sat_s6TO; };, [(go, [])]), (lvl8 :: forall d. Data.Data.Data d => d -> GHC.Base.String -> GHC.Base.String [GblId, Arity=1, Str=DmdType L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [$dData] let { g [Dmd=Just L] :: d -> GHC.Base.String -> GHC.Base.String [LclId, Str=DmdType] = \u srt:(0,*bitmap*) [] Data.Generics.Text.gshows $dData; } in let { sat_s6TP :: d -> GHC.Base.String -> [GHC.Types.Char] [LclId] = \r [x] let { g1 [Dmd=Just L] :: GHC.Base.String -> GHC.Base.String [LclId, Str=DmdType] = \u [] g x; } in let { sat_s6Sr :: GHC.Base.String -> [GHC.Types.Char] [LclId] = \r [x1] let { sat_s6Sp :: [GHC.Types.Char] [LclId] = \u [] g1 x1; } in : [lvl6 sat_s6Sp]; } in sat_s6Sr; } in sat_s6TP; Data.Generics.Text.gshows [Occ=LoopBreaker] :: forall a. Data.Data.Data a => a -> GHC.Show.ShowS [GblId, Arity=1, Str=DmdType L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [$dData] let { $dTypeable [Dmd=Just L] :: Data.Typeable.Internal.Typeable a [LclId, Str=DmdType] = \u [] Data.Data.$p1Data $dData; } in let { g :: a -> Data.Data.Constr [LclId, Str=DmdType] = \u [] Data.Data.toConstr $dData; } in let { g1 :: a -> [GHC.Base.String -> GHC.Base.String] [LclId, Str=DmdType] = \u srt:(3,*bitmap*) [] Data.Data.gmapQ $dData lvl8; } in let { sat_s6TV :: a -> GHC.Show.ShowS [LclId] = \r srt:(0,*bitmap*) [a11] case Data.Typeable.cast $dTypeable a2 a11 of _ { Data.Maybe.Nothing -> let { a12 [Dmd=Just L] :: [GHC.Base.String -> GHC.Base.String] [LclId, Str=DmdType] = \u [] g1 a11; } in let { a13 [Dmd=Just L] :: [GHC.Types.Char] [LclId, Str=DmdType] = \u [] case g a11 of _ { Data.Data.Constr _ ds2 _ _ _ -> ds2; }; } in let { sat_s6TQ :: GHC.Base.String -> [GHC.Types.Char] [LclId] = \r [x] let { sat_s6SW :: [GHC.Types.Char] [LclId] = \u [] let { sat_s6SU :: [GHC.Types.Char] [LclId] = \u [] let { sat_s6SS :: GHC.Base.String [LclId] = NO_CCS :! [lvl5 x]; } in go a12 sat_s6SS; } in GHC.Base.++ a13 sat_s6SU; } in : [lvl7 sat_s6SW]; } in sat_s6TQ; Data.Maybe.Just x -> GHC.Show.$fShowChar_$cshowList x; }; } in sat_s6TV;, [(lvl8, [Data.Generics.Text.gshows]), (Data.Generics.Text.gshows, [Data.Typeable.cast, GHC.Show.$fShowChar_$cshowList, a2, lvl8])]), (Data.Generics.Text.gshow :: forall a. Data.Data.Data a => a -> GHC.Base.String [GblId, Arity=2, Str=DmdType LL, Unf=OtherCon []] = \r srt:(0,*bitmap*) [$dData x] Data.Generics.Text.gshows $dData x GHC.Types.[];, [(Data.Generics.Text.gshow, [Data.Generics.Text.gshows])])]