blob: 6edace35f748aa793da281042648cae4264de8f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
module IRE.Application.YOLO
( findItems
) where
import qualified Data.ByteString.Lazy as LBS
import qualified IRE.Logging as Log
import IRE.YOLO (Detector, Item, detect)
findItems :: Detector -> LBS.ByteString -> IO [Item]
findItems d fc = do
r <- detect d 0.3 0.3 (LBS.toStrict fc)
Log.debug $ show r
return r
|