test = \x -> case x of 
  { str = "Foo", bool = true } -> true
  { str = "Bar", bool = b } -> b
  _ -> false