data Bozo =
    Bozo {
      id :: Int
    }

bonzo :: Maybe Bozo -> IO ()
bonzo   maybe_bozo = do
   if maybe_bozo == (Just (Bozo  x))
      then
         return ()
      else
         return ()
~ 

I want "x" to be a pattern that matches "id" .... ??

Kind regards, Vasili