main :: Bool main = True ------------ desugared source code main :: Bool main = _lhs main (_rhs ((\(a :: _) -> primIfThenElse a a a) True)) ------------ core code main :: Bool main = _rhs True ------------ tooltips 1:9-1:13 Type 2:1-2:5 Bool 2:8-2:39 Bool 2:15-2:33 Bool 2:18-2:19 _c 2:18-2:26 Bool -> Bool 2:25-2:26 Bool 2:32-2:33 Bool 2:35-2:39 Bool