blob: 1d6ab376477eccd3f6a8e2656484aeab58e625d0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module IRE.Application.YOLO (
findItems
) where
import qualified Data.ByteString.Lazy as LBS
import IRE.YOLO (Detector, Item, detect)
import qualified IRE.Logging as Log
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
|
