waza-hs does not belong here

MDict.hs

@@ -34,6 +34,9 @@ import qualified Data.ByteString.Char8 as BSC
 import Data.Word (Word64)
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as TE
+import qualified Data.Conduit.Combinators as CC
+import Data.Conduit
+import Conduit
 import Data.Char (toLower)
 import System.FilePath (takeExtension)
 import Text.HTML.Scalpel
@@ -46,7 +49,6 @@ import Control.Monad
 import Control.Applicative
 import System.FilePath (replaceExtension)
 import Control.DeepSeq (NFData, deepseq)
-import Wazahs
 import Data.Bool (Bool)
 
 -- C-compatible struct
@@ -326,6 +328,12 @@ lookupMedia mddFile query = do
               --  putStrLn $ "DEBUG: Found media for " ++ query
                 return base64
 
+listFiles :: FilePath -> IO [FilePath]
+listFiles dir = runConduitRes $
+       CC.sourceDirectoryDeep False dir
+  .|   filterC (\fp -> takeExtension fp == ".mdx")
+  .|   CC.sinkList
+
 
 processDictionary :: FilePath -> String -> IO (Either String String)
 processDictionary dictFile queryKey =