git.iko.soy/typeable/ether
on master help sign in
Minor formatting changes
38a8e5fIndex Int
src/Control/Ether/TT.hs+11−26
compare with master
unifiedsplit
@@ -91,36 +91,21 @@ instance
91
91
92type instance Lift.StT (TT tag trans) a = Lift.StT trans a
92type instance Lift.StT (TT tag trans) a = Lift.StT trans a
93
93
94−instance
95− ( Lift.LiftLocal trans
96− ) => Lift.LiftLocal (TT tag trans)
94+instance Lift.LiftLocal trans => Lift.LiftLocal (TT tag trans) where
97− where
98− liftLocal = Lift.defaultLiftLocal pack unpack
95+ liftLocal = Lift.defaultLiftLocal pack unpack
99
96
100−instance
101− ( Lift.LiftCatch trans
102− ) => Lift.LiftCatch (TT tag trans)
97+instance Lift.LiftCatch trans => Lift.LiftCatch (TT tag trans) where
103− where
104− liftCatch = Lift.defaultLiftCatch pack unpack
98+ liftCatch = Lift.defaultLiftCatch pack unpack
105
99
106−instance
107− ( Lift.LiftListen trans
108− ) => Lift.LiftListen (TT tag trans)
100+instance Lift.LiftListen trans => Lift.LiftListen (TT tag trans) where
109− where
110− liftListen = Lift.defaultLiftListen pack unpack
101+ liftListen = Lift.defaultLiftListen pack unpack
111
102
112−instance
113− ( Lift.LiftPass trans
114− ) => Lift.LiftPass (TT tag trans)
103+instance Lift.LiftPass trans => Lift.LiftPass (TT tag trans) where
115− where
116− liftPass = Lift.defaultLiftPass pack unpack
104+ liftPass = Lift.defaultLiftPass pack unpack
117
105
118−instance
119− ( Lift.LiftCallCC trans
120− ) => Lift.LiftCallCC (TT tag trans)
106+instance Lift.LiftCallCC trans => Lift.LiftCallCC (TT tag trans) where
121− where
122− liftCallCC = Lift.defaultLiftCallCC pack unpack
107+ liftCallCC = Lift.defaultLiftCallCC pack unpack
123− liftCallCC' = Lift.defaultLiftCallCC' pack unpack
108+ liftCallCC' = Lift.defaultLiftCallCC' pack unpack
124
109
125-- Instances for mtl classes
110-- Instances for mtl classes
126
111