{-# LANGUAGE OverloadedStrings #-}

import System.Environment (getArgs)
import System.Exit (exitFailure)
import Control.Monad (when)
import MDict

main :: IO ()
main = do
  args <- getArgs
  when (length args < 2) $ do
    putStrLn "Usage: Main <dictionary_dir> <query_key>"
    exitFailure

  let dict = args !! 0
      queryKey = args !! 1

  res <- processDictionary dict queryKey
  html <- case res of
    Left err -> error err
    Right h  -> return h


  putStrLn (html)