[haskell] Поиск в ByteString.Lazy

Пытаюсь вытащить высоту и ширину из jpeg-файла, для чего мне нужно найти два байта маркера сегмента. Склоняюсь в сторону выбора ByteString.Lazy, из-за отсутсвия необходимости загружать файл целиком в память, но вопрос: что лучше использовать в качестве аналога findSubstring из ByteString(её strict варианта)? Рекурсивный dropWhile с последующей проверкой второго байта, что-нибудь из Data.ByteString.Lazy.Search или что-нибудь другое?