addExceptionHandler :: Label -> Label -> Label -> Maybe FieldType -> InstrM ()
addExceptionHandler start end handler mft = do
  let f (Just (ObjectType (IClassName text))) = Just text
      f _ = Nothing
  modify' $ \s@InstrState { isExceptionTable = et } ->
              s { isExceptionTable = insertIntoET start end handler (f mft) et }
addExceptionHandler :: Label -> Label -> Label -> Maybe FieldType -> InstrM ()
addExceptionHandler start end handler mft = do
  let f (Just (ObjectType (IClassName text))) = Just text
      f _ = Nothing
  modify' $ \s@InstrState { isExceptionTable = et } ->
              s { isExceptionTable = insertIntoET start end handler (f mft) et }
addExceptionHandler start end handler mft = do
  let f (Just (ObjectType (IClassName text))) = Just text
      f _ = Nothing
  modify' $ \s@InstrState { isExceptionTable = et } ->
              s { isExceptionTable = insertIntoET start end handler (f mft) et }