[Haskell-cafe] Small question

[Andrew Coppin]

Which of these is likely to go faster?

  type Quad = (Bool,Bool)

  foo (r,t) =
    let
      x = if r ...
      y = if t ...
    in ...



  data Quad = BL | BR | TL | TR

  foo q =
    let
      x = if q == TL | q == TR ...
      y = if q == BR | q == TR ...
    in ...



(Unless somebody has a better idea...)

I'm hoping that the latter one will more more strict / use less space. 
But I don't truely know...