------------ desugared source code value = case'Bool (\_ -> _) (case'Bool (\_ -> _) (_rhs undefined) (_rhs "False") False) (_rhs "True") True main is not found ------------ trace value :: String ------------ tooltips testdata/language-features/guard/guard03.lc 1:1-1:6 String testdata/language-features/guard/guard03.lc 2:5-2:9 Bool testdata/language-features/guard/guard03.lc 2:5-3:20 String testdata/language-features/guard/guard03.lc 2:12-2:18 String testdata/language-features/guard/guard03.lc 2:12-3:20 Bool -> String testdata/language-features/guard/guard03.lc 3:5-3:10 Bool testdata/language-features/guard/guard03.lc 3:5-3:20 String testdata/language-features/guard/guard03.lc 3:13-3:20 String