toETEs :: ExceptionTable -> LabelTable -> [ExceptionTableEntry]
toETEs et lt =
  map (\(start, end, handler, const) ->
         ExceptionTableEntry { eteStartPc   = unOffset $ lookupLT start   lt
                             , eteEndPc     = unOffset $ lookupLT end     lt
                             , eteHandlerPc = unOffset $ lookupLT handler lt
                             , eteCatchType = fmap (CClass . IClassName) const })
  $ toListET et
toETEs :: ExceptionTable -> LabelTable -> [ExceptionTableEntry]
toETEs et lt =
  map (\(start, end, handler, const) ->
         ExceptionTableEntry { eteStartPc   = unOffset $ lookupLT start   lt
                             , eteEndPc     = unOffset $ lookupLT end     lt
                             , eteHandlerPc = unOffset $ lookupLT handler lt
                             , eteCatchType = fmap (CClass . IClassName) const })
  $ toListET et
toETEs et lt =
  map (\(start, end, handler, const) ->
         ExceptionTableEntry { eteStartPc   = unOffset $ lookupLT start   lt
                             , eteEndPc     = unOffset $ lookupLT end     lt
                             , eteHandlerPc = unOffset $ lookupLT handler lt
                             , eteCatchType = fmap (CClass . IClassName) const })
  $ toListET et