diff options
Diffstat (limited to 'src/IRE/Application/YOLO.hs')
-rw-r--r-- | src/IRE/Application/YOLO.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/IRE/Application/YOLO.hs b/src/IRE/Application/YOLO.hs new file mode 100644 index 0000000..1d6ab37 --- /dev/null +++ b/src/IRE/Application/YOLO.hs @@ -0,0 +1,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 + |