module Hat.TimeBuiltinTypes (Month(..),Day(..),CalendarTime(..),gctYear,hctYear,gctMonth,hctMonth,gctDay ,hctDay,gctHour,hctHour,gctMin,hctMin,gctSec,hctSec,gctPicosec,hctPicosec ,gctWDay,hctWDay,gctYDay,hctYDay,gctTZName,hctTZName,gctTZ,hctTZ,gctIsDST ,hctIsDST,TimeDiff(..),gtdYear,htdYear,gtdMonth,htdMonth,gtdDay,htdDay ,gtdHour,htdHour,gtdMin,htdMin,gtdSec,htdSec,gtdPicosec,htdPicosec,aJanuary ,aFebruary,aMarch,aApril,aMay,aJune,aJuly,aAugust,aSeptember,aOctober ,aNovember,aDecember,aSunday,aMonday,aTuesday,aWednesday,aThursday,aFriday ,aSaturday,aCalendarTime,aTimeDiff,actYear,actMonth,actDay,actHour,actMin ,actSec,actPicosec,actWDay,actYDay,actTZName,actTZ,actIsDST,atdYear,atdMonth ,atdDay,atdHour,atdMin,atdSec,atdPicosec) where import qualified Hat.PreludeBasic import qualified Prelude import Hat.Hack import qualified Hat.Hat as T import Hat.Hat (WrapVal(wrapVal)) import Hat.Prelude import Hat.Ix (Ix(..)) data Month = January | February | March | April | May | June | July | August | September | October | November | December instance T.WrapVal (Month) where wrapVal pwrapVal (kwrapVal@January) p = T.R kwrapVal (T.mkValueUse p pwrapVal aJanuary) wrapVal pwrapVal (kwrapVal@February) p = T.R kwrapVal (T.mkValueUse p pwrapVal aFebruary) wrapVal pwrapVal (kwrapVal@March) p = T.R kwrapVal (T.mkValueUse p pwrapVal aMarch) wrapVal pwrapVal (kwrapVal@April) p = T.R kwrapVal (T.mkValueUse p pwrapVal aApril) wrapVal pwrapVal (kwrapVal@May) p = T.R kwrapVal (T.mkValueUse p pwrapVal aMay) wrapVal pwrapVal (kwrapVal@June) p = T.R kwrapVal (T.mkValueUse p pwrapVal aJune) wrapVal pwrapVal (kwrapVal@July) p = T.R kwrapVal (T.mkValueUse p pwrapVal aJuly) wrapVal pwrapVal (kwrapVal@August) p = T.R kwrapVal (T.mkValueUse p pwrapVal aAugust) wrapVal pwrapVal (kwrapVal@September) p = T.R kwrapVal (T.mkValueUse p pwrapVal aSeptember) wrapVal pwrapVal (kwrapVal@October) p = T.R kwrapVal (T.mkValueUse p pwrapVal aOctober) wrapVal pwrapVal (kwrapVal@November) p = T.R kwrapVal (T.mkValueUse p pwrapVal aNovember) wrapVal pwrapVal (kwrapVal@December) p = T.R kwrapVal (T.mkValueUse p pwrapVal aDecember) instance Eq (Month) where (!==) (%==) p = T.ufun2 (+@=$$=@=$%==) (%==) p (*==) where (*==) (T.R January _) (T.R January _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R February _) (T.R February _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R March _) (T.R March _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R April _) (T.R April _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R May _) (T.R May _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R June _) (T.R June _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R July _) (T.R July _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R August _) (T.R August _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R September _) (T.R September _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R October _) (T.R October _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R November _) (T.R November _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R December _) (T.R December _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) _ _ p = T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse instance Ord (Month) where gcompare pcompare p = T.ufun2 a8v26v8v28compare pcompare p hcompare where hcompare fy1 fy2 p = T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) (T.uwrapForward p (hlocalFromEnum fy1 p) :: T.R Hat.Prelude.Int) (T.uwrapForward p (hlocalFromEnum fy2 p)) where glocalFromEnum plocalFromEnum p = T.ufun1 a8v26v8v28localFromEnum plocalFromEnum p hlocalFromEnum alocalFromEnum = a8v26v8v28localFromEnum hlocalFromEnum (T.R (January) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hlocalFromEnum (T.R (February) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1) hlocalFromEnum (T.R (March) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2) hlocalFromEnum (T.R (April) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3) hlocalFromEnum (T.R (May) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4) hlocalFromEnum (T.R (June) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5) hlocalFromEnum (T.R (July) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6) hlocalFromEnum (T.R (August) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 7) hlocalFromEnum (T.R (September) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 8) hlocalFromEnum (T.R (October) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 9) hlocalFromEnum (T.R (November) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 10) hlocalFromEnum (T.R (December) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 11) hlocalFromEnum _ p = T.fatal p instance Enum (Month) where gfromEnum pfromEnum p = T.ufun1 a8v31v8v34fromEnum pfromEnum p hfromEnum where hfromEnum (T.R January _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hfromEnum (T.R February _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1) hfromEnum (T.R March _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2) hfromEnum (T.R April _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3) hfromEnum (T.R May _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4) hfromEnum (T.R June _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5) hfromEnum (T.R July _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6) hfromEnum (T.R August _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 7) hfromEnum (T.R September _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 8) hfromEnum (T.R October _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 9) hfromEnum (T.R November _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 10) hfromEnum (T.R December _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 11) hfromEnum _ p = T.fatal p gtoEnum ptoEnum p = T.ufun1 a8v31v8v34toEnum ptoEnum p htoEnum where htoEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0))) (h p) (y1toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p January aJanuary h p = y1toEnum fv8v31v8v34n p htoEnum fv8v31v8v34n p = y1toEnum fv8v31v8v34n p y1toEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1))) (h p) (y2toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p February aFebruary h p = y2toEnum fv8v31v8v34n p y1toEnum fv8v31v8v34n p = y2toEnum fv8v31v8v34n p y2toEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2))) (h p) (y3toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p March aMarch h p = y3toEnum fv8v31v8v34n p y2toEnum fv8v31v8v34n p = y3toEnum fv8v31v8v34n p y3toEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3))) (h p) (y4toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p April aApril h p = y4toEnum fv8v31v8v34n p y3toEnum fv8v31v8v34n p = y4toEnum fv8v31v8v34n p y4toEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4))) (h p) (y5toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p May aMay h p = y5toEnum fv8v31v8v34n p y4toEnum fv8v31v8v34n p = y5toEnum fv8v31v8v34n p y5toEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5))) (h p) (y6toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p June aJune h p = y6toEnum fv8v31v8v34n p y5toEnum fv8v31v8v34n p = y6toEnum fv8v31v8v34n p y6toEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6))) (h p) (y7toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p July aJuly h p = y7toEnum fv8v31v8v34n p y6toEnum fv8v31v8v34n p = y7toEnum fv8v31v8v34n p y7toEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 7))) (h p) (y8toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p August aAugust h p = y8toEnum fv8v31v8v34n p y7toEnum fv8v31v8v34n p = y8toEnum fv8v31v8v34n p y8toEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 8))) (h p) (y9toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p September aSeptember h p = y9toEnum fv8v31v8v34n p y8toEnum fv8v31v8v34n p = y9toEnum fv8v31v8v34n p y9toEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 9))) (h p) (y10toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p October aOctober h p = y10toEnum fv8v31v8v34n p y9toEnum fv8v31v8v34n p = y10toEnum fv8v31v8v34n p y10toEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 10))) (h p) (y11toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p November aNovember h p = y11toEnum fv8v31v8v34n p y10toEnum fv8v31v8v34n p = y11toEnum fv8v31v8v34n p y11toEnum fv8v31v8v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v31v8v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 11))) (h p) (y12toEnum fv8v31v8v34n p) where h p = T.con0 T.mkNoSrcPos p December aDecember h p = y12toEnum fv8v31v8v34n p y11toEnum fv8v31v8v34n p = y12toEnum fv8v31v8v34n p y12toEnum _ p = T.uwrapForward p (Hat.Prelude.herror (T.fromLitString T.mkNoSrcPos p "toEnum: argument out of bounds") p) genumFrom penumFrom p = T.ufun1 a8v31v8v34enumFrom penumFrom p henumFrom where henumFrom fy1 p = T.uap2 T.mkNoSrcPos p (Hat.Prelude.genumFromTo T.mkNoSrcPos p) fy1 (T.con0 T.mkNoSrcPos p December aDecember) genumFromThen penumFromThen p = T.ufun2 a8v31v8v34enumFromThen penumFromThen p henumFromThen where henumFromThen fy1 fy2 p = T.uap3 T.mkNoSrcPos p (Hat.Prelude.genumFromThenTo T.mkNoSrcPos p) fy1 fy2 (T.ucif p (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!>= p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gfromEnum T.mkNoSrcPos p) fy1) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gfromEnum T.mkNoSrcPos p) fy2)) (T.con0 T.mkNoSrcPos p December aDecember) (T.con0 T.mkNoSrcPos p January aJanuary)) instance Bounded (Month) where gminBound pminBound p = T.uconstUse pminBound p sminBound sminBound = T.uconstDef T.mkRoot a8v37v8v43minBound (\ p -> T.con0 T.mkNoSrcPos p January aJanuary) gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound smaxBound = T.uconstDef T.mkRoot a8v37v8v43maxBound (\ p -> T.con0 T.mkNoSrcPos p December aDecember) instance Ix (Month) where grange prange p = T.ufun1 a8v46v8v47range prange p hrange where hrange (T.R (T.Tuple2 fy1 fy2) _) p = T.uwrapForward p (Hat.PreludeBasic.hmap (glocalToEnum T.mkNoSrcPos p) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.genumFromTo T.mkNoSrcPos p) (T.uwrapForward p (hlocalFromEnum fy1 p)) (T.uwrapForward p (hlocalFromEnum fy2 p))) p) where glocalToEnum :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Hat.Prelude.Int Month) hlocalToEnum :: (T.R Hat.Prelude.Int) -> T.RefExp -> T.R Month glocalToEnum plocalToEnum p = T.ufun1 a8v46v8v47localToEnum plocalToEnum p hlocalToEnum alocalToEnum = a8v46v8v47localToEnum hlocalToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0))) (h p) (y1localToEnum fv8v46v8v47n p) where h p = T.con0 T.mkNoSrcPos p January aJanuary h p = y1localToEnum fv8v46v8v47n p hlocalToEnum fv8v46v8v47n p = y1localToEnum fv8v46v8v47n p y1localToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1))) (h p) (y2localToEnum fv8v46v8v47n p) where h p = T.con0 T.mkNoSrcPos p February aFebruary h p = y2localToEnum fv8v46v8v47n p y1localToEnum fv8v46v8v47n p = y2localToEnum fv8v46v8v47n p y2localToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2))) (h p) (y3localToEnum fv8v46v8v47n p) where h p = T.con0 T.mkNoSrcPos p March aMarch h p = y3localToEnum fv8v46v8v47n p y2localToEnum fv8v46v8v47n p = y3localToEnum fv8v46v8v47n p y3localToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3))) (h p) (y4localToEnum fv8v46v8v47n p) where h p = T.con0 T.mkNoSrcPos p April aApril h p = y4localToEnum fv8v46v8v47n p y3localToEnum fv8v46v8v47n p = y4localToEnum fv8v46v8v47n p y4localToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4))) (h p) (y5localToEnum fv8v46v8v47n p) where h p = T.con0 T.mkNoSrcPos p May aMay h p = y5localToEnum fv8v46v8v47n p y4localToEnum fv8v46v8v47n p = y5localToEnum fv8v46v8v47n p y5localToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5))) (h p) (y6localToEnum fv8v46v8v47n p) where h p = T.con0 T.mkNoSrcPos p June aJune h p = y6localToEnum fv8v46v8v47n p y5localToEnum fv8v46v8v47n p = y6localToEnum fv8v46v8v47n p y6localToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6))) (h p) (y7localToEnum fv8v46v8v47n p) where h p = T.con0 T.mkNoSrcPos p July aJuly h p = y7localToEnum fv8v46v8v47n p y6localToEnum fv8v46v8v47n p = y7localToEnum fv8v46v8v47n p y7localToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 7))) (h p) (y8localToEnum fv8v46v8v47n p) where h p = T.con0 T.mkNoSrcPos p August aAugust h p = y8localToEnum fv8v46v8v47n p y7localToEnum fv8v46v8v47n p = y8localToEnum fv8v46v8v47n p y8localToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 8))) (h p) (y9localToEnum fv8v46v8v47n p) where h p = T.con0 T.mkNoSrcPos p September aSeptember h p = y9localToEnum fv8v46v8v47n p y8localToEnum fv8v46v8v47n p = y9localToEnum fv8v46v8v47n p y9localToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 9))) (h p) (y10localToEnum fv8v46v8v47n p) where h p = T.con0 T.mkNoSrcPos p October aOctober h p = y10localToEnum fv8v46v8v47n p y9localToEnum fv8v46v8v47n p = y10localToEnum fv8v46v8v47n p y10localToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 10))) (h p) (y11localToEnum fv8v46v8v47n p) where h p = T.con0 T.mkNoSrcPos p November aNovember h p = y11localToEnum fv8v46v8v47n p y10localToEnum fv8v46v8v47n p = y11localToEnum fv8v46v8v47n p y11localToEnum fv8v46v8v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv8v46v8v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 11))) (h p) (T.fatal p) where h p = T.con0 T.mkNoSrcPos p December aDecember h p = T.fatal p y11localToEnum _ p = T.fatal p glocalFromEnum :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Month Hat.Prelude.Int) hlocalFromEnum :: (T.R Month) -> T.RefExp -> T.R Hat.Prelude.Int glocalFromEnum plocalFromEnum p = T.ufun1 a8v46v8v47localFromEnum plocalFromEnum p hlocalFromEnum alocalFromEnum = a8v46v8v47localFromEnum hlocalFromEnum (T.R January _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hlocalFromEnum (T.R February _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1) hlocalFromEnum (T.R March _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2) hlocalFromEnum (T.R April _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3) hlocalFromEnum (T.R May _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4) hlocalFromEnum (T.R June _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5) hlocalFromEnum (T.R July _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6) hlocalFromEnum (T.R August _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 7) hlocalFromEnum (T.R September _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 8) hlocalFromEnum (T.R October _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 9) hlocalFromEnum (T.R November _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 10) hlocalFromEnum (T.R December _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 11) hlocalFromEnum _ p = T.fatal p hrange _ p = T.fatal p gindex pindex p = T.ufun2 a8v46v8v47index pindex p hindex where hindex (T.R (T.Tuple2 fy1 fy2) _) fy3 p = T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!- p) (T.uwrapForward p (hlocalFromEnum fy3 p)) (T.uwrapForward p (hlocalFromEnum fy1 p)) where glocalFromEnum :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Month Hat.Prelude.Int) hlocalFromEnum :: (T.R Month) -> T.RefExp -> T.R Hat.Prelude.Int glocalFromEnum plocalFromEnum p = T.ufun1 a8v46v8v47localFromEnum plocalFromEnum p hlocalFromEnum alocalFromEnum = a8v46v8v47localFromEnum hlocalFromEnum (T.R January _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hlocalFromEnum (T.R February _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1) hlocalFromEnum (T.R March _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2) hlocalFromEnum (T.R April _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3) hlocalFromEnum (T.R May _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4) hlocalFromEnum (T.R June _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5) hlocalFromEnum (T.R July _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6) hlocalFromEnum (T.R August _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 7) hlocalFromEnum (T.R September _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 8) hlocalFromEnum (T.R October _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 9) hlocalFromEnum (T.R November _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 10) hlocalFromEnum (T.R December _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 11) hlocalFromEnum _ p = T.fatal p hindex _ _ p = T.fatal p ginRange pinRange p = T.ufun2 a8v46v8v47inRange pinRange p hinRange where hinRange (T.R (T.Tuple2 fy1 fy2) _) fy3 p = T.uap2 T.mkNoSrcPos p (Hat.Ix.ginRange T.mkNoSrcPos p) (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 (T.uwrapForward p (hlocalFromEnum fy1 p)) (T.uwrapForward p (hlocalFromEnum fy2 p))) (T.uwrapForward p (hlocalFromEnum fy3 p)) where glocalFromEnum :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Month Hat.Prelude.Int) hlocalFromEnum :: (T.R Month) -> T.RefExp -> T.R Hat.Prelude.Int glocalFromEnum plocalFromEnum p = T.ufun1 a8v46v8v47localFromEnum plocalFromEnum p hlocalFromEnum alocalFromEnum = a8v46v8v47localFromEnum hlocalFromEnum (T.R January _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hlocalFromEnum (T.R February _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1) hlocalFromEnum (T.R March _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2) hlocalFromEnum (T.R April _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3) hlocalFromEnum (T.R May _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4) hlocalFromEnum (T.R June _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5) hlocalFromEnum (T.R July _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6) hlocalFromEnum (T.R August _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 7) hlocalFromEnum (T.R September _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 8) hlocalFromEnum (T.R October _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 9) hlocalFromEnum (T.R November _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 10) hlocalFromEnum (T.R December _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 11) hlocalFromEnum _ p = T.fatal p hinRange _ _ p = T.fatal p instance Read (Month) where greadsPrec preadsPrec p = T.ufun1 a8v50v8v53readsPrec preadsPrec p hreadsPrec where hreadsPrec fy1 p = T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p January aJanuary)) (T.fromLitString T.mkNoSrcPos p "January") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p February aFebruary)) (T.fromLitString T.mkNoSrcPos p "February") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p March aMarch)) (T.fromLitString T.mkNoSrcPos p "March") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p April aApril)) (T.fromLitString T.mkNoSrcPos p "April") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p May aMay)) (T.fromLitString T.mkNoSrcPos p "May") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p June aJune)) (T.fromLitString T.mkNoSrcPos p "June") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p July aJuly)) (T.fromLitString T.mkNoSrcPos p "July") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p August aAugust)) (T.fromLitString T.mkNoSrcPos p "August") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p September aSeptember)) (T.fromLitString T.mkNoSrcPos p "September") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p October aOctober)) (T.fromLitString T.mkNoSrcPos p "October") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p November aNovember)) (T.fromLitString T.mkNoSrcPos p "November") p)) p)) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p December aDecember)) (T.fromLitString T.mkNoSrcPos p "December") p)) p)))))))))))) instance Show (Month) where gshowsPrec pshowsPrec p = T.ufun2 a8v56v8v59showsPrec pshowsPrec p hshowsPrec where hshowsPrec fy1 (T.R (January) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "January") hshowsPrec fy1 (T.R (February) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "February") hshowsPrec fy1 (T.R (March) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "March") hshowsPrec fy1 (T.R (April) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "April") hshowsPrec fy1 (T.R (May) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "May") hshowsPrec fy1 (T.R (June) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "June") hshowsPrec fy1 (T.R (July) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "July") hshowsPrec fy1 (T.R (August) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "August") hshowsPrec fy1 (T.R (September) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "September") hshowsPrec fy1 (T.R (October) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "October") hshowsPrec fy1 (T.R (November) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "November") hshowsPrec fy1 (T.R (December) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "December") hshowsPrec _ _ p = T.fatal p data Day = Sunday | Monday | Tuesday | Wednesday | Thursday | Friday | Saturday instance T.WrapVal (Day) where wrapVal pwrapVal (kwrapVal@Sunday) p = T.R kwrapVal (T.mkValueUse p pwrapVal aSunday) wrapVal pwrapVal (kwrapVal@Monday) p = T.R kwrapVal (T.mkValueUse p pwrapVal aMonday) wrapVal pwrapVal (kwrapVal@Tuesday) p = T.R kwrapVal (T.mkValueUse p pwrapVal aTuesday) wrapVal pwrapVal (kwrapVal@Wednesday) p = T.R kwrapVal (T.mkValueUse p pwrapVal aWednesday) wrapVal pwrapVal (kwrapVal@Thursday) p = T.R kwrapVal (T.mkValueUse p pwrapVal aThursday) wrapVal pwrapVal (kwrapVal@Friday) p = T.R kwrapVal (T.mkValueUse p pwrapVal aFriday) wrapVal pwrapVal (kwrapVal@Saturday) p = T.R kwrapVal (T.mkValueUse p pwrapVal aSaturday) instance Eq (Day) where (!==) (%==) p = T.ufun2 (+#$=$$=#$=$%==) (%==) p (*==) where (*==) (T.R Sunday _) (T.R Sunday _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R Monday _) (T.R Monday _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R Tuesday _) (T.R Tuesday _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R Wednesday _) (T.R Wednesday _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R Thursday _) (T.R Thursday _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R Friday _) (T.R Friday _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) (T.R Saturday _) (T.R Saturday _) p = T.con0 T.mkNoSrcPos p Hat.Prelude.True Hat.Prelude.aTrue (*==) _ _ p = T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse instance Ord (Day) where gcompare pcompare p = T.ufun2 a12v26v12v28compare pcompare p hcompare where hcompare fy1 fy2 p = T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) (T.uwrapForward p (hlocalFromEnum fy1 p) :: T.R Hat.Prelude.Int) (T.uwrapForward p (hlocalFromEnum fy2 p)) where glocalFromEnum plocalFromEnum p = T.ufun1 a12v26v12v28localFromEnum plocalFromEnum p hlocalFromEnum alocalFromEnum = a12v26v12v28localFromEnum hlocalFromEnum (T.R (Sunday) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hlocalFromEnum (T.R (Monday) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1) hlocalFromEnum (T.R (Tuesday) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2) hlocalFromEnum (T.R (Wednesday) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3) hlocalFromEnum (T.R (Thursday) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4) hlocalFromEnum (T.R (Friday) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5) hlocalFromEnum (T.R (Saturday) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6) hlocalFromEnum _ p = T.fatal p instance Enum (Day) where gfromEnum pfromEnum p = T.ufun1 a12v31v12v34fromEnum pfromEnum p hfromEnum where hfromEnum (T.R Sunday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hfromEnum (T.R Monday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1) hfromEnum (T.R Tuesday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2) hfromEnum (T.R Wednesday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3) hfromEnum (T.R Thursday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4) hfromEnum (T.R Friday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5) hfromEnum (T.R Saturday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6) hfromEnum _ p = T.fatal p gtoEnum ptoEnum p = T.ufun1 a12v31v12v34toEnum ptoEnum p htoEnum where htoEnum fv12v31v12v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v31v12v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0))) (h p) (y1toEnum fv12v31v12v34n p) where h p = T.con0 T.mkNoSrcPos p Sunday aSunday h p = y1toEnum fv12v31v12v34n p htoEnum fv12v31v12v34n p = y1toEnum fv12v31v12v34n p y1toEnum fv12v31v12v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v31v12v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1))) (h p) (y2toEnum fv12v31v12v34n p) where h p = T.con0 T.mkNoSrcPos p Monday aMonday h p = y2toEnum fv12v31v12v34n p y1toEnum fv12v31v12v34n p = y2toEnum fv12v31v12v34n p y2toEnum fv12v31v12v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v31v12v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2))) (h p) (y3toEnum fv12v31v12v34n p) where h p = T.con0 T.mkNoSrcPos p Tuesday aTuesday h p = y3toEnum fv12v31v12v34n p y2toEnum fv12v31v12v34n p = y3toEnum fv12v31v12v34n p y3toEnum fv12v31v12v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v31v12v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3))) (h p) (y4toEnum fv12v31v12v34n p) where h p = T.con0 T.mkNoSrcPos p Wednesday aWednesday h p = y4toEnum fv12v31v12v34n p y3toEnum fv12v31v12v34n p = y4toEnum fv12v31v12v34n p y4toEnum fv12v31v12v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v31v12v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4))) (h p) (y5toEnum fv12v31v12v34n p) where h p = T.con0 T.mkNoSrcPos p Thursday aThursday h p = y5toEnum fv12v31v12v34n p y4toEnum fv12v31v12v34n p = y5toEnum fv12v31v12v34n p y5toEnum fv12v31v12v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v31v12v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5))) (h p) (y6toEnum fv12v31v12v34n p) where h p = T.con0 T.mkNoSrcPos p Friday aFriday h p = y6toEnum fv12v31v12v34n p y5toEnum fv12v31v12v34n p = y6toEnum fv12v31v12v34n p y6toEnum fv12v31v12v34n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v31v12v34n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6))) (h p) (y7toEnum fv12v31v12v34n p) where h p = T.con0 T.mkNoSrcPos p Saturday aSaturday h p = y7toEnum fv12v31v12v34n p y6toEnum fv12v31v12v34n p = y7toEnum fv12v31v12v34n p y7toEnum _ p = T.uwrapForward p (Hat.Prelude.herror (T.fromLitString T.mkNoSrcPos p "toEnum: argument out of bounds") p) genumFrom penumFrom p = T.ufun1 a12v31v12v34enumFrom penumFrom p henumFrom where henumFrom fy1 p = T.uap2 T.mkNoSrcPos p (Hat.Prelude.genumFromTo T.mkNoSrcPos p) fy1 (T.con0 T.mkNoSrcPos p Saturday aSaturday) genumFromThen penumFromThen p = T.ufun2 a12v31v12v34enumFromThen penumFromThen p henumFromThen where henumFromThen fy1 fy2 p = T.uap3 T.mkNoSrcPos p (Hat.Prelude.genumFromThenTo T.mkNoSrcPos p) fy1 fy2 (T.ucif p (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!>= p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gfromEnum T.mkNoSrcPos p) fy1) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gfromEnum T.mkNoSrcPos p) fy2)) (T.con0 T.mkNoSrcPos p Saturday aSaturday) (T.con0 T.mkNoSrcPos p Sunday aSunday)) instance Bounded (Day) where gminBound pminBound p = T.uconstUse pminBound p sminBound sminBound = T.uconstDef T.mkRoot a12v37v12v43minBound (\ p -> T.con0 T.mkNoSrcPos p Sunday aSunday) gmaxBound pmaxBound p = T.uconstUse pmaxBound p smaxBound smaxBound = T.uconstDef T.mkRoot a12v37v12v43maxBound (\ p -> T.con0 T.mkNoSrcPos p Saturday aSaturday) instance Ix (Day) where grange prange p = T.ufun1 a12v46v12v47range prange p hrange where hrange (T.R (T.Tuple2 fy1 fy2) _) p = T.uwrapForward p (Hat.PreludeBasic.hmap (glocalToEnum T.mkNoSrcPos p) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.genumFromTo T.mkNoSrcPos p) (T.uwrapForward p (hlocalFromEnum fy1 p)) (T.uwrapForward p (hlocalFromEnum fy2 p))) p) where glocalToEnum :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Hat.Prelude.Int Day) hlocalToEnum :: (T.R Hat.Prelude.Int) -> T.RefExp -> T.R Day glocalToEnum plocalToEnum p = T.ufun1 a12v46v12v47localToEnum plocalToEnum p hlocalToEnum alocalToEnum = a12v46v12v47localToEnum hlocalToEnum fv12v46v12v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v46v12v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0))) (h p) (y1localToEnum fv12v46v12v47n p) where h p = T.con0 T.mkNoSrcPos p Sunday aSunday h p = y1localToEnum fv12v46v12v47n p hlocalToEnum fv12v46v12v47n p = y1localToEnum fv12v46v12v47n p y1localToEnum fv12v46v12v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v46v12v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1))) (h p) (y2localToEnum fv12v46v12v47n p) where h p = T.con0 T.mkNoSrcPos p Monday aMonday h p = y2localToEnum fv12v46v12v47n p y1localToEnum fv12v46v12v47n p = y2localToEnum fv12v46v12v47n p y2localToEnum fv12v46v12v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v46v12v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2))) (h p) (y3localToEnum fv12v46v12v47n p) where h p = T.con0 T.mkNoSrcPos p Tuesday aTuesday h p = y3localToEnum fv12v46v12v47n p y2localToEnum fv12v46v12v47n p = y3localToEnum fv12v46v12v47n p y3localToEnum fv12v46v12v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v46v12v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3))) (h p) (y4localToEnum fv12v46v12v47n p) where h p = T.con0 T.mkNoSrcPos p Wednesday aWednesday h p = y4localToEnum fv12v46v12v47n p y3localToEnum fv12v46v12v47n p = y4localToEnum fv12v46v12v47n p y4localToEnum fv12v46v12v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v46v12v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4))) (h p) (y5localToEnum fv12v46v12v47n p) where h p = T.con0 T.mkNoSrcPos p Thursday aThursday h p = y5localToEnum fv12v46v12v47n p y4localToEnum fv12v46v12v47n p = y5localToEnum fv12v46v12v47n p y5localToEnum fv12v46v12v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v46v12v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5))) (h p) (y6localToEnum fv12v46v12v47n p) where h p = T.con0 T.mkNoSrcPos p Friday aFriday h p = y6localToEnum fv12v46v12v47n p y5localToEnum fv12v46v12v47n p = y6localToEnum fv12v46v12v47n p y6localToEnum fv12v46v12v47n p = T.ucguard (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fv12v46v12v47n (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6))) (h p) (T.fatal p) where h p = T.con0 T.mkNoSrcPos p Saturday aSaturday h p = T.fatal p y6localToEnum _ p = T.fatal p glocalFromEnum :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Day Hat.Prelude.Int) hlocalFromEnum :: (T.R Day) -> T.RefExp -> T.R Hat.Prelude.Int glocalFromEnum plocalFromEnum p = T.ufun1 a12v46v12v47localFromEnum plocalFromEnum p hlocalFromEnum alocalFromEnum = a12v46v12v47localFromEnum hlocalFromEnum (T.R Sunday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hlocalFromEnum (T.R Monday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1) hlocalFromEnum (T.R Tuesday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2) hlocalFromEnum (T.R Wednesday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3) hlocalFromEnum (T.R Thursday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4) hlocalFromEnum (T.R Friday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5) hlocalFromEnum (T.R Saturday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6) hlocalFromEnum _ p = T.fatal p hrange _ p = T.fatal p gindex pindex p = T.ufun2 a12v46v12v47index pindex p hindex where hindex (T.R (T.Tuple2 fy1 fy2) _) fy3 p = T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!- p) (T.uwrapForward p (hlocalFromEnum fy3 p)) (T.uwrapForward p (hlocalFromEnum fy1 p)) where glocalFromEnum :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Day Hat.Prelude.Int) hlocalFromEnum :: (T.R Day) -> T.RefExp -> T.R Hat.Prelude.Int glocalFromEnum plocalFromEnum p = T.ufun1 a12v46v12v47localFromEnum plocalFromEnum p hlocalFromEnum alocalFromEnum = a12v46v12v47localFromEnum hlocalFromEnum (T.R Sunday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hlocalFromEnum (T.R Monday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1) hlocalFromEnum (T.R Tuesday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2) hlocalFromEnum (T.R Wednesday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3) hlocalFromEnum (T.R Thursday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4) hlocalFromEnum (T.R Friday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5) hlocalFromEnum (T.R Saturday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6) hlocalFromEnum _ p = T.fatal p hindex _ _ p = T.fatal p ginRange pinRange p = T.ufun2 a12v46v12v47inRange pinRange p hinRange where hinRange (T.R (T.Tuple2 fy1 fy2) _) fy3 p = T.uap2 T.mkNoSrcPos p (Hat.Ix.ginRange T.mkNoSrcPos p) (T.con2 T.mkNoSrcPos p T.Tuple2 T.aTuple2 (T.uwrapForward p (hlocalFromEnum fy1 p)) (T.uwrapForward p (hlocalFromEnum fy2 p))) (T.uwrapForward p (hlocalFromEnum fy3 p)) where glocalFromEnum :: T.RefSrcPos -> T.RefExp -> T.R (T.Fun Day Hat.Prelude.Int) hlocalFromEnum :: (T.R Day) -> T.RefExp -> T.R Hat.Prelude.Int glocalFromEnum plocalFromEnum p = T.ufun1 a12v46v12v47localFromEnum plocalFromEnum p hlocalFromEnum alocalFromEnum = a12v46v12v47localFromEnum hlocalFromEnum (T.R Sunday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hlocalFromEnum (T.R Monday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 1) hlocalFromEnum (T.R Tuesday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 2) hlocalFromEnum (T.R Wednesday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 3) hlocalFromEnum (T.R Thursday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 4) hlocalFromEnum (T.R Friday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 5) hlocalFromEnum (T.R Saturday _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 6) hlocalFromEnum _ p = T.fatal p hinRange _ _ p = T.fatal p instance Read (Day) where greadsPrec preadsPrec p = T.ufun1 a12v50v12v53readsPrec preadsPrec p hreadsPrec where hreadsPrec fy1 p = T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p Sunday aSunday)) (T.fromLitString T.mkNoSrcPos p "Sunday") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p Monday aMonday)) (T.fromLitString T.mkNoSrcPos p "Monday") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p Tuesday aTuesday)) (T.fromLitString T.mkNoSrcPos p "Tuesday") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p Wednesday aWednesday)) (T.fromLitString T.mkNoSrcPos p "Wednesday") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p Thursday aThursday)) (T.fromLitString T.mkNoSrcPos p "Thursday") p)) p)) (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.galt T.mkNoSrcPos p) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p Friday aFriday)) (T.fromLitString T.mkNoSrcPos p "Friday") p)) p)) (T.uwrapForward p (Hat.Prelude.hreadParen (T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.con0 T.mkNoSrcPos p Saturday aSaturday)) (T.fromLitString T.mkNoSrcPos p "Saturday") p)) p))))))) instance Show (Day) where gshowsPrec pshowsPrec p = T.ufun2 a12v56v12v59showsPrec pshowsPrec p hshowsPrec where hshowsPrec fy1 (T.R (Sunday) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "Sunday") hshowsPrec fy1 (T.R (Monday) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "Monday") hshowsPrec fy1 (T.R (Tuesday) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "Tuesday") hshowsPrec fy1 (T.R (Wednesday) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "Wednesday") hshowsPrec fy1 (T.R (Thursday) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "Thursday") hshowsPrec fy1 (T.R (Friday) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "Friday") hshowsPrec fy1 (T.R (Saturday) _) p = T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "Saturday") hshowsPrec _ _ p = T.fatal p data CalendarTime = CalendarTime {bctYear :: T.R Int,bctMonth :: T.R Month ,bctDay,bctHour,bctMin,bctSec :: T.R Int,bctPicosec :: T.R Integer ,bctWDay :: T.R Day,bctYDay :: T.R Int,bctTZName :: T.R String ,bctTZ :: T.R Int,bctIsDST :: T.R Bool} instance T.WrapVal (CalendarTime) where wrapVal pwrapVal (kwrapVal@(CalendarTime (T.R _ z1wrapVal) (T.R _ z2wrapVal) (T.R _ z3wrapVal) (T.R _ z4wrapVal) (T.R _ z5wrapVal) (T.R _ z6wrapVal) (T.R _ z7wrapVal) (T.R _ z8wrapVal) (T.R _ z9wrapVal) (T.R _ z10wrapVal) (T.R _ z11wrapVal) (T.R _ z12wrapVal))) p = T.R kwrapVal (T.mkValueApp12 p pwrapVal aCalendarTime z1wrapVal z2wrapVal z3wrapVal z4wrapVal z5wrapVal z6wrapVal z7wrapVal z8wrapVal z9wrapVal z10wrapVal z11wrapVal z12wrapVal) gctYear pctYear p = T.ufun1 actYear pctYear p hctYear hctYear (T.R z1ctYear _) p = T.projection T.mkNoSrcPos p (bctYear z1ctYear) gctMonth pctMonth p = T.ufun1 actMonth pctMonth p hctMonth hctMonth (T.R z1ctMonth _) p = T.projection T.mkNoSrcPos p (bctMonth z1ctMonth) gctDay pctDay p = T.ufun1 actDay pctDay p hctDay hctDay (T.R z1ctDay _) p = T.projection T.mkNoSrcPos p (bctDay z1ctDay) gctHour pctHour p = T.ufun1 actHour pctHour p hctHour hctHour (T.R z1ctHour _) p = T.projection T.mkNoSrcPos p (bctHour z1ctHour) gctMin pctMin p = T.ufun1 actMin pctMin p hctMin hctMin (T.R z1ctMin _) p = T.projection T.mkNoSrcPos p (bctMin z1ctMin) gctSec pctSec p = T.ufun1 actSec pctSec p hctSec hctSec (T.R z1ctSec _) p = T.projection T.mkNoSrcPos p (bctSec z1ctSec) gctPicosec pctPicosec p = T.ufun1 actPicosec pctPicosec p hctPicosec hctPicosec (T.R z1ctPicosec _) p = T.projection T.mkNoSrcPos p (bctPicosec z1ctPicosec) gctWDay pctWDay p = T.ufun1 actWDay pctWDay p hctWDay hctWDay (T.R z1ctWDay _) p = T.projection T.mkNoSrcPos p (bctWDay z1ctWDay) gctYDay pctYDay p = T.ufun1 actYDay pctYDay p hctYDay hctYDay (T.R z1ctYDay _) p = T.projection T.mkNoSrcPos p (bctYDay z1ctYDay) gctTZName pctTZName p = T.ufun1 actTZName pctTZName p hctTZName hctTZName (T.R z1ctTZName _) p = T.projection T.mkNoSrcPos p (bctTZName z1ctTZName) gctTZ pctTZ p = T.ufun1 actTZ pctTZ p hctTZ hctTZ (T.R z1ctTZ _) p = T.projection T.mkNoSrcPos p (bctTZ z1ctTZ) gctIsDST pctIsDST p = T.ufun1 actIsDST pctIsDST p hctIsDST hctIsDST (T.R z1ctIsDST _) p = T.projection T.mkNoSrcPos p (bctIsDST z1ctIsDST) instance Eq (CalendarTime) where (!==) (%==) p = T.ufun2 (+$&=$#=$&=$$==) (%==) p (*==) where (*==) (T.R (CalendarTime fy1 fy2 fy3 fy4 fy5 fy6 fy7 fy8 fy9 fy10 fy11 fy12) _) (T.R (CalendarTime fy13 fy14 fy15 fy16 fy17 fy18 fy19 fy20 fy21 fy22 fy23 fy24) _) p = T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy1 fy13) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy2 fy14) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy3 fy15) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy4 fy16) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy5 fy17) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy6 fy18) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy7 fy19) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy8 fy20) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy9 fy21) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy10 fy22) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy11 fy23) Hat.Prelude.*&& (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy12 fy24)) p))) p))) p))) p))) p))) p))) p))) p))) p))) p))) p) (*==) _ _ p = T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse instance Ord (CalendarTime) where gcompare pcompare p = T.ufun2 a24v25v24v27compare pcompare p hcompare where hcompare (T.R (CalendarTime fy3 fy4 fy5 fy6 fy7 fy8 fy9 fy10 fy11 fy12 fy13 fy14) _) (T.R (CalendarTime fy15 fy16 fy17 fy18 fy19 fy20 fy21 fy22 fy23 fy24 fy25 fy26) _) p = T.uccase T.mkNoSrcPos p (let v24v25v24v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v24v25v24v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v24v25v24v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v24v25v24v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v24v25v24v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v24v25v24v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v24v25v24v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v24v25v24v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v24v25v24v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v24v25v24v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v24v25v24v27v1 (T.R Hat.Prelude.EQ _) p = T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy14 fy26 v24v25v24v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v24v25v24v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy13 fy25) v24v25v24v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v24v25v24v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy12 fy24) v24v25v24v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v24v25v24v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy11 fy23) v24v25v24v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v24v25v24v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy10 fy22) v24v25v24v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v24v25v24v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy9 fy21) v24v25v24v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v24v25v24v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy8 fy20) v24v25v24v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v24v25v24v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy7 fy19) v24v25v24v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v24v25v24v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy6 fy18) v24v25v24v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v24v25v24v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy5 fy17) v24v25v24v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v24v25v24v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy4 fy16) v24v25v24v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v24v25v24v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy3 fy15) hcompare fy1 fy2 p = T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) (T.uwrapForward p (hlocalFromEnum fy1 p) :: T.R Hat.Prelude.Int) (T.uwrapForward p (hlocalFromEnum fy2 p)) where glocalFromEnum plocalFromEnum p = T.ufun1 a24v25v24v27localFromEnum plocalFromEnum p hlocalFromEnum alocalFromEnum = a24v25v24v27localFromEnum hlocalFromEnum (T.R (CalendarTime _ _ _ _ _ _ _ _ _ _ _ _) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hlocalFromEnum _ p = T.fatal p instance Read (CalendarTime) where greadsPrec preadsPrec p = T.ufun1 a24v30v24v33readsPrec preadsPrec p hreadsPrec where hreadsPrec fy1 p = T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.pa0 CalendarTime T.cn12 T.mkNoSrcPos p aCalendarTime)) (T.fromLitString T.mkNoSrcPos p "CalendarTime") p)) (T.fromLitString T.mkNoSrcPos p "{") p)) (T.fromLitString T.mkNoSrcPos p "ctYear") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "ctMonth") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "ctDay") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "ctHour") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "ctMin") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "ctSec") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "ctPicosec") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "ctWDay") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "ctYDay") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "ctTZName") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "ctTZ") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "ctIsDST") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p "}") p) instance Show (CalendarTime) where gshowsPrec pshowsPrec p = T.ufun2 a24v36v24v39showsPrec pshowsPrec p hshowsPrec where hshowsPrec fy1 (T.R (CalendarTime fy2 fy3 fy4 fy5 fy6 fy7 fy8 fy9 fy10 fy11 fy12 fy13) _) p = T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "CalendarTime{")) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctYear")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy2)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctMonth")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy3)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctDay")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy4)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctHour")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy5)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctMin")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy6)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctSec")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy7)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctPicosec")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy8)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctWDay")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy9)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctYDay")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy10)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctTZName")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy11)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctTZ")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy12)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "ctIsDST")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy13)))))))))))))) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '}')) hshowsPrec _ _ p = T.fatal p data TimeDiff = TimeDiff {btdYear,btdMonth,btdDay,btdHour,btdMin,btdSec :: T.R Int ,btdPicosec :: T.R Integer} instance T.WrapVal (TimeDiff) where wrapVal pwrapVal (kwrapVal@(TimeDiff (T.R _ z1wrapVal) (T.R _ z2wrapVal) (T.R _ z3wrapVal) (T.R _ z4wrapVal) (T.R _ z5wrapVal) (T.R _ z6wrapVal) (T.R _ z7wrapVal))) p = T.R kwrapVal (T.mkValueApp7 p pwrapVal aTimeDiff z1wrapVal z2wrapVal z3wrapVal z4wrapVal z5wrapVal z6wrapVal z7wrapVal) gtdYear ptdYear p = T.ufun1 atdYear ptdYear p htdYear htdYear (T.R z1tdYear _) p = T.projection T.mkNoSrcPos p (btdYear z1tdYear) gtdMonth ptdMonth p = T.ufun1 atdMonth ptdMonth p htdMonth htdMonth (T.R z1tdMonth _) p = T.projection T.mkNoSrcPos p (btdMonth z1tdMonth) gtdDay ptdDay p = T.ufun1 atdDay ptdDay p htdDay htdDay (T.R z1tdDay _) p = T.projection T.mkNoSrcPos p (btdDay z1tdDay) gtdHour ptdHour p = T.ufun1 atdHour ptdHour p htdHour htdHour (T.R z1tdHour _) p = T.projection T.mkNoSrcPos p (btdHour z1tdHour) gtdMin ptdMin p = T.ufun1 atdMin ptdMin p htdMin htdMin (T.R z1tdMin _) p = T.projection T.mkNoSrcPos p (btdMin z1tdMin) gtdSec ptdSec p = T.ufun1 atdSec ptdSec p htdSec htdSec (T.R z1tdSec _) p = T.projection T.mkNoSrcPos p (btdSec z1tdSec) gtdPicosec ptdPicosec p = T.ufun1 atdPicosec ptdPicosec p htdPicosec htdPicosec (T.R z1tdPicosec _) p = T.projection T.mkNoSrcPos p (btdPicosec z1tdPicosec) instance Eq (TimeDiff) where (!==) (%==) p = T.ufun2 (+$>=$#=$>=$$==) (%==) p (*==) where (*==) (T.R (TimeDiff fy1 fy2 fy3 fy4 fy5 fy6 fy7) _) (T.R (TimeDiff fy8 fy9 fy10 fy11 fy12 fy13 fy14) _) p = T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy1 fy8) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy2 fy9) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy3 fy10) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy4 fy11) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy5 fy12) Hat.Prelude.*&& (T.uwrapForward p (((T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy6 fy13) Hat.Prelude.*&& (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!== p) fy7 fy14)) p))) p))) p))) p))) p))) p) (*==) _ _ p = T.con0 T.mkNoSrcPos p Hat.Prelude.False Hat.Prelude.aFalse instance Ord (TimeDiff) where gcompare pcompare p = T.ufun2 a29v25v29v27compare pcompare p hcompare where hcompare (T.R (TimeDiff fy3 fy4 fy5 fy6 fy7 fy8 fy9) _) (T.R (TimeDiff fy10 fy11 fy12 fy13 fy14 fy15 fy16) _) p = T.uccase T.mkNoSrcPos p (let v29v25v29v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v29v25v29v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v29v25v29v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v29v25v29v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v29v25v29v27v1 (T.R Hat.Prelude.EQ _) p = T.uccase T.mkNoSrcPos p (let v29v25v29v27v1 (T.R Hat.Prelude.EQ _) p = T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy9 fy16 v29v25v29v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v29v25v29v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy8 fy15) v29v25v29v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v29v25v29v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy7 fy14) v29v25v29v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v29v25v29v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy6 fy13) v29v25v29v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v29v25v29v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy5 fy12) v29v25v29v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v29v25v29v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy4 fy11) v29v25v29v27v1 fy1 p = T.projection T.mkNoSrcPos p fy1 in (v29v25v29v27v1)) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) fy3 fy10) hcompare fy1 fy2 p = T.uap2 T.mkNoSrcPos p (Hat.Prelude.gcompare T.mkNoSrcPos p) (T.uwrapForward p (hlocalFromEnum fy1 p) :: T.R Hat.Prelude.Int) (T.uwrapForward p (hlocalFromEnum fy2 p)) where glocalFromEnum plocalFromEnum p = T.ufun1 a29v25v29v27localFromEnum plocalFromEnum p hlocalFromEnum alocalFromEnum = a29v25v29v27localFromEnum hlocalFromEnum (T.R (TimeDiff _ _ _ _ _ _ _) _) p = T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0) hlocalFromEnum _ p = T.fatal p instance Read (TimeDiff) where greadsPrec preadsPrec p = T.ufun1 a29v30v29v33readsPrec preadsPrec p hreadsPrec where hreadsPrec fy1 p = T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap2 T.mkNoSrcPos p (Hat.PreludeBasic.gthenAp T.mkNoSrcPos p) (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uwrapForward p (Hat.PreludeBasic.hthenLex (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gyield T.mkNoSrcPos p) (T.pa0 TimeDiff T.cn7 T.mkNoSrcPos p aTimeDiff)) (T.fromLitString T.mkNoSrcPos p "TimeDiff") p)) (T.fromLitString T.mkNoSrcPos p "{") p)) (T.fromLitString T.mkNoSrcPos p "tdYear") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "tdMonth") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "tdDay") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "tdHour") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "tdMin") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "tdSec") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p ",") p)) (T.fromLitString T.mkNoSrcPos p "tdPicosec") p)) (T.fromLitString T.mkNoSrcPos p "=") p)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.greadsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)))) (T.fromLitString T.mkNoSrcPos p "}") p) instance Show (TimeDiff) where gshowsPrec pshowsPrec p = T.ufun2 a29v36v29v39showsPrec pshowsPrec p hshowsPrec where hshowsPrec fy1 (T.R (TimeDiff fy2 fy3 fy4 fy5 fy6 fy7 fy8) _) p = T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "TimeDiff{")) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "tdYear")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy2)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "tdMonth")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy3)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "tdDay")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy4)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "tdHour")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy5)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "tdMin")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy6)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "tdSec")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy7)) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p ','))) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap2 T.mkNoSrcPos p (T.mkNoSrcPos Hat.Prelude.!. p) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowString T.mkNoSrcPos p) (T.fromLitString T.mkNoSrcPos p "tdPicosec")) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '='))) (T.uap2 T.mkNoSrcPos p (Hat.Prelude.gshowsPrec T.mkNoSrcPos p) (T.uap1 T.mkNoSrcPos p (Hat.PreludeBasic.gfromInteger T.mkNoSrcPos p) (T.conInteger T.mkNoSrcPos p 0)) fy8))))))))) (T.uap1 T.mkNoSrcPos p (Hat.Prelude.gshowChar T.mkNoSrcPos p) (T.conChar T.mkNoSrcPos p '}')) hshowsPrec _ _ p = T.fatal p tTimeBuiltinTypes = T.mkModule "TimeBuiltinTypes" "TimeBuiltinTypes.hs" Prelude.False aJanuary = T.mkConstructor tTimeBuiltinTypes 50015 50021 3 0 "January" aFebruary = T.mkConstructor tTimeBuiltinTypes 50027 50034 3 0 "February" aMarch = T.mkConstructor tTimeBuiltinTypes 50038 50042 3 0 "March" aApril = T.mkConstructor tTimeBuiltinTypes 50049 50053 3 0 "April" aMay = T.mkConstructor tTimeBuiltinTypes 60015 60017 3 0 "May" aJune = T.mkConstructor tTimeBuiltinTypes 60027 60030 3 0 "June" aJuly = T.mkConstructor tTimeBuiltinTypes 60038 60041 3 0 "July" aAugust = T.mkConstructor tTimeBuiltinTypes 60049 60054 3 0 "August" aSeptember = T.mkConstructor tTimeBuiltinTypes 70015 70023 3 0 "September" aOctober = T.mkConstructor tTimeBuiltinTypes 70027 70033 3 0 "October" aNovember = T.mkConstructor tTimeBuiltinTypes 70038 70045 3 0 "November" aDecember = T.mkConstructor tTimeBuiltinTypes 70049 70056 3 0 "December" aSunday = T.mkConstructor tTimeBuiltinTypes 100015 100020 3 0 "Sunday" aMonday = T.mkConstructor tTimeBuiltinTypes 100024 100029 3 0 "Monday" aTuesday = T.mkConstructor tTimeBuiltinTypes 100034 100040 3 0 "Tuesday" aWednesday = T.mkConstructor tTimeBuiltinTypes 100045 100053 3 0 "Wednesday" aThursday = T.mkConstructor tTimeBuiltinTypes 100057 100064 3 0 "Thursday" aFriday = T.mkConstructor tTimeBuiltinTypes 110015 110020 3 0 "Friday" aSaturday = T.mkConstructor tTimeBuiltinTypes 110024 110031 3 0 "Saturday" aCalendarTime = T.mkConstructorWFields tTimeBuiltinTypes 140021 140032 3 12 "CalendarTime" (actYear : (actMonth : (actDay : (actHour : (actMin : (actSec : (actPicosec : (actWDay : (actYDay : (actTZName : (actTZ : (actIsDST : [])))))))))))) aTimeDiff = T.mkConstructorWFields tTimeBuiltinTypes 260017 260024 3 7 "TimeDiff" (atdYear : (atdMonth : (atdDay : (atdHour : (atdMin : (atdSec : (atdPicosec : []))))))) actYear = T.mkVariable tTimeBuiltinTypes 150017 150022 3 1 "ctYear" Prelude.False actMonth = T.mkVariable tTimeBuiltinTypes 160017 160023 3 1 "ctMonth" Prelude.False actDay = T.mkVariable tTimeBuiltinTypes 170017 170021 3 1 "ctDay" Prelude.False actHour = T.mkVariable tTimeBuiltinTypes 170024 170029 3 1 "ctHour" Prelude.False actMin = T.mkVariable tTimeBuiltinTypes 170032 170036 3 1 "ctMin" Prelude.False actSec = T.mkVariable tTimeBuiltinTypes 170039 170043 3 1 "ctSec" Prelude.False actPicosec = T.mkVariable tTimeBuiltinTypes 180017 180025 3 1 "ctPicosec" Prelude.False actWDay = T.mkVariable tTimeBuiltinTypes 190017 190022 3 1 "ctWDay" Prelude.False actYDay = T.mkVariable tTimeBuiltinTypes 200017 200022 3 1 "ctYDay" Prelude.False actTZName = T.mkVariable tTimeBuiltinTypes 210017 210024 3 1 "ctTZName" Prelude.False actTZ = T.mkVariable tTimeBuiltinTypes 220017 220020 3 1 "ctTZ" Prelude.False actIsDST = T.mkVariable tTimeBuiltinTypes 230017 230023 3 1 "ctIsDST" Prelude.False atdYear = T.mkVariable tTimeBuiltinTypes 270017 270022 3 1 "tdYear" Prelude.False atdMonth = T.mkVariable tTimeBuiltinTypes 270025 270031 3 1 "tdMonth" Prelude.False atdDay = T.mkVariable tTimeBuiltinTypes 270034 270038 3 1 "tdDay" Prelude.False atdHour = T.mkVariable tTimeBuiltinTypes 270041 270046 3 1 "tdHour" Prelude.False atdMin = T.mkVariable tTimeBuiltinTypes 270049 270053 3 1 "tdMin" Prelude.False atdSec = T.mkVariable tTimeBuiltinTypes 270056 270060 3 1 "tdSec" Prelude.False atdPicosec = T.mkVariable tTimeBuiltinTypes 280017 280025 3 1 "tdPicosec" Prelude.False (+@=$$=@=$%==) = T.mkVariable tTimeBuiltinTypes 80022 80023 3 2 "==" Prelude.False a8v26v8v28compare = T.mkVariable tTimeBuiltinTypes 80026 80028 3 2 "compare" Prelude.False a8v31v8v34fromEnum = T.mkVariable tTimeBuiltinTypes 80031 80034 3 1 "fromEnum" Prelude.False a8v31v8v34toEnum = T.mkVariable tTimeBuiltinTypes 80031 80034 3 1 "toEnum" Prelude.False a8v31v8v34enumFrom = T.mkVariable tTimeBuiltinTypes 80031 80034 3 1 "enumFrom" Prelude.False a8v31v8v34enumFromThen = T.mkVariable tTimeBuiltinTypes 80031 80034 3 2 "enumFromThen" Prelude.False a8v37v8v43minBound = T.mkVariable tTimeBuiltinTypes 80037 80043 3 0 "minBound" Prelude.False a8v37v8v43maxBound = T.mkVariable tTimeBuiltinTypes 80037 80043 3 0 "maxBound" Prelude.False a8v46v8v47range = T.mkVariable tTimeBuiltinTypes 80046 80047 3 1 "range" Prelude.False a8v46v8v47index = T.mkVariable tTimeBuiltinTypes 80046 80047 3 2 "index" Prelude.False a8v46v8v47inRange = T.mkVariable tTimeBuiltinTypes 80046 80047 3 2 "inRange" Prelude.False a8v50v8v53readsPrec = T.mkVariable tTimeBuiltinTypes 80050 80053 3 1 "readsPrec" Prelude.False a8v56v8v59showsPrec = T.mkVariable tTimeBuiltinTypes 80056 80059 3 2 "showsPrec" Prelude.False (+#$=$$=#$=$%==) = T.mkVariable tTimeBuiltinTypes 120022 120023 3 2 "==" Prelude.False a12v26v12v28compare = T.mkVariable tTimeBuiltinTypes 120026 120028 3 2 "compare" Prelude.False a12v31v12v34fromEnum = T.mkVariable tTimeBuiltinTypes 120031 120034 3 1 "fromEnum" Prelude.False a12v31v12v34toEnum = T.mkVariable tTimeBuiltinTypes 120031 120034 3 1 "toEnum" Prelude.False a12v31v12v34enumFrom = T.mkVariable tTimeBuiltinTypes 120031 120034 3 1 "enumFrom" Prelude.False a12v31v12v34enumFromThen = T.mkVariable tTimeBuiltinTypes 120031 120034 3 2 "enumFromThen" Prelude.False a12v37v12v43minBound = T.mkVariable tTimeBuiltinTypes 120037 120043 3 0 "minBound" Prelude.False a12v37v12v43maxBound = T.mkVariable tTimeBuiltinTypes 120037 120043 3 0 "maxBound" Prelude.False a12v46v12v47range = T.mkVariable tTimeBuiltinTypes 120046 120047 3 1 "range" Prelude.False a12v46v12v47index = T.mkVariable tTimeBuiltinTypes 120046 120047 3 2 "index" Prelude.False a12v46v12v47inRange = T.mkVariable tTimeBuiltinTypes 120046 120047 3 2 "inRange" Prelude.False a12v50v12v53readsPrec = T.mkVariable tTimeBuiltinTypes 120050 120053 3 1 "readsPrec" Prelude.False a12v56v12v59showsPrec = T.mkVariable tTimeBuiltinTypes 120056 120059 3 2 "showsPrec" Prelude.False (+$&=$#=$&=$$==) = T.mkVariable tTimeBuiltinTypes 240021 240022 3 2 "==" Prelude.False a24v25v24v27compare = T.mkVariable tTimeBuiltinTypes 240025 240027 3 2 "compare" Prelude.False a24v30v24v33readsPrec = T.mkVariable tTimeBuiltinTypes 240030 240033 3 1 "readsPrec" Prelude.False a24v36v24v39showsPrec = T.mkVariable tTimeBuiltinTypes 240036 240039 3 2 "showsPrec" Prelude.False (+$>=$#=$>=$$==) = T.mkVariable tTimeBuiltinTypes 290021 290022 3 2 "==" Prelude.False a29v25v29v27compare = T.mkVariable tTimeBuiltinTypes 290025 290027 3 2 "compare" Prelude.False a29v30v29v33readsPrec = T.mkVariable tTimeBuiltinTypes 290030 290033 3 1 "readsPrec" Prelude.False a29v36v29v39showsPrec = T.mkVariable tTimeBuiltinTypes 290036 290039 3 2 "showsPrec" Prelude.False a8v26v8v28localFromEnum = T.mkVariable tTimeBuiltinTypes 80026 80028 3 1 "localFromEnum" Prelude.True a8v46v8v47localToEnum = T.mkVariable tTimeBuiltinTypes 80046 80047 3 1 "localToEnum" Prelude.True a8v46v8v47localFromEnum = T.mkVariable tTimeBuiltinTypes 80046 80047 3 1 "localFromEnum" Prelude.True a12v26v12v28localFromEnum = T.mkVariable tTimeBuiltinTypes 120026 120028 3 1 "localFromEnum" Prelude.True a12v46v12v47localToEnum = T.mkVariable tTimeBuiltinTypes 120046 120047 3 1 "localToEnum" Prelude.True a12v46v12v47localFromEnum = T.mkVariable tTimeBuiltinTypes 120046 120047 3 1 "localFromEnum" Prelude.True a24v25v24v27localFromEnum = T.mkVariable tTimeBuiltinTypes 240025 240027 3 1 "localFromEnum" Prelude.True a29v25v29v27localFromEnum = T.mkVariable tTimeBuiltinTypes 290025 290027 3 1 "localFromEnum" Prelude.True