lojban-0.1: GenDB.hs

import Language.Lojban.Jbovlaste
import System
import qualified System.IO.Strict as StrictIO

main :: IO ()
main = do
  args <- getArgs
  case args of
    [from,to]  -> do db <- genDB from
                     writeFile to (show db)
    []         -> StrictIO.interact (show . genDBString)
    _          -> error "expecting <from .xml file> <to filename>"