Missing `getShortByteString`

In `Data.Binary.Put`, there is `putShortByteString :: ShortByteString -> Put`.

However, there is no corresponding `getShortByteString :: Int -> Get ShortByteString` in `Data.Binary.Get`.

A naive implementation would be:
```hs
getShortByteString :: Int -> Get ShortByteString
getShortByteString = fmap BS.toShort . getByteString
```
But maybe there is a better way?