prettyInstruction _ _ i@(ArrayData{}) =
  "array-data (" <> int32Dec (fromIntegral size) <> " units)"
    where size = insnUnitCount i

-- Helpers


-- | Right pad a string with spaces until it is the specified width
prettyInstruction _ _ i@(ArrayData{}) =
  "array-data (" <> int32Dec (fromIntegral size) <> " units)"
    where size = insnUnitCount i

-- Helpers


-- | Right pad a string with spaces until it is the specified width
prettyInstruction _ _ i@(ArrayData{}) =
  "array-data (" <> int32Dec (fromIntegral size) <> " units)"
    where size = insnUnitCount i

-- Helpers


-- | Right pad a string with spaces until it is the specified width