Update cli-example/Main.hs

Signed-off-by: hashirama <hashirama@noreply.localhost>

cli-example/Main.hs

@@ -1,15 +1,9 @@
 {-# LANGUAGE OverloadedStrings #-}
 
-import Text.HTML.Scalpel
-import Data.Maybe (fromMaybe)
-import Data.List (isInfixOf)
-import qualified Data.Text as T
 import System.Environment (getArgs)
 import System.Exit (exitFailure)
-import Control.Monad
-import System.FilePath (replaceExtension)
-import MDict
-
+import Control.Monad (when)
+import MDict (lookupInCollection)
 
 main :: IO ()
 main = do
@@ -21,5 +15,5 @@ main = do
     let dictDir  = args !! 0
         queryKey = args !! 1
 
-    -- Process all files (lookupInCollection lists files itself)
+    -- Process all files
     lookupInCollection dictDir queryKey