Функция, которая возвращает True только тогда, когда хотя бы два из трех её аргументов равны True

twoTrue :: Bool->Bool->Bool->Bool
twoTrue x y z = if x==True then
                if y==True then True
                else False
                else 
                    if y==True then
                    if z==True then True
                    else False
                    else 
                        if x==True then
                        if z==True then True
                        else False
                        else False

import Data.List (sort)
 
twoTrue :: Bool -> Bool -> Bool -> Bool
twoTrue x y z = case tail $ sort [x, y, z] of
                  [True, True] -> True
                  _            -> False
 
twoTrue2 x y z = sum (map toInt [x, y, z]) >= 2
    where toInt False = 0
          toInt True  = 1
 
twoTrue3 True True _ = True
twoTrue3 True _ True = True
twoTrue3 _ True True = True
twoTrue3 _ _ _       = False

twoTrue :: Bool -> Bool -> Bool -> Bool
twoTrue x y z = if x == True
                then if y == True
                     then True
                     else if z == True
                          then True
                          else False
                else if y == True
                     then if z == True
                          then True
                          else False
                     else False