fix spelling mistake

Author: roelvandijk

opencv-examples/lib/OpenCV/Example.hs

@@ -6,7 +6,7 @@
 module OpenCV.Example
    ( createCapture
    , createCaptureArg
-   , withEmbededFile
+   , withEmbeddedFile
    ) where
 
 import "base" System.Environment
@@ -48,8 +48,8 @@ embedCallHelp ef templ f =
 
 -- | Embedder for strictly used files, it allows to embed a file, and still allow
 -- some method to use filename
-withEmbededFile :: FilePath -> Q Exp
-withEmbededFile filePath = do
+withEmbeddedFile :: FilePath -> Q Exp
+withEmbeddedFile filePath = do
     templ <- [| $(lift $ takeFileName filePath) |]
     ef <- embedFile filePath
     var <- newName "f"

opencv-examples/src/face-detect.hs

@@ -31,8 +31,8 @@ white  = CV.toScalar (V4 255 255 255 255 :: V4 Double)
 main :: IO ()
 main = do
     cap <- createCaptureArg
-    Just ccFrontal <- $(withEmbededFile "data/haarcascade_frontalface_default.xml") CV.newCascadeClassifier
-    Just ccEyes    <- $(withEmbededFile "data/haarcascade_eye.xml") CV.newCascadeClassifier
+    Just ccFrontal <- $(withEmbeddedFile "data/haarcascade_frontalface_default.xml") CV.newCascadeClassifier
+    Just ccEyes    <- $(withEmbeddedFile "data/haarcascade_eye.xml") CV.newCascadeClassifier
     w <- CV.videoCaptureGetI cap VideoCapPropFrameWidth
     h <- CV.videoCaptureGetI cap VideoCapPropFrameHeight
     CV.withWindow "video" $ loop cap (ccFrontal, ccEyes, w, h)

opencv-extra-examples/src/tracker.hs

@@ -41,7 +41,7 @@ ccCommon :: ((FilePath -> IO (Maybe CV.CascadeClassifier)) -> IO (Maybe a)) -> a
 ccCommon f = unsafePerformIO $ fromJust <$> f CV.newCascadeClassifier
 
 ccFrontal :: CV.CascadeClassifier
-ccFrontal = ccCommon $(withEmbededFile "data/haarcascade_frontalface_default.xml")
+ccFrontal = ccCommon $(withEmbeddedFile "data/haarcascade_frontalface_default.xml")
 
 main :: IO ()
 main = do