aboutsummaryrefslogtreecommitdiff
path: root/src/IRE/Application/YOLO.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/IRE/Application/YOLO.hs')
-rw-r--r--src/IRE/Application/YOLO.hs10
1 files changed, 4 insertions, 6 deletions
diff --git a/src/IRE/Application/YOLO.hs b/src/IRE/Application/YOLO.hs
index 1d6ab37..6edace3 100644
--- a/src/IRE/Application/YOLO.hs
+++ b/src/IRE/Application/YOLO.hs
@@ -1,16 +1,14 @@
-module IRE.Application.YOLO (
- findItems
-) where
+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
-
+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
-