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