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
+