select x p q
  | True = p
  | False = q

main = putStr (select (1 == 1) "yes" "no")

comments (single view)

golfed:

select _ p _ = p
View all comments