loadResources :: String -> String -> String -> String -> String -> String -> String -> IO Resources
loadResources lexiconFile modelFile baseDir example day notesFile modelPrefFile = do
  lexFile <- getDataFileName lexiconFile
  cssFile <- getDataFileName "data/style.css"
  modelFile <- getDataFileName modelFile
  notesFile <- getDataFileName notesFile
  lex <- readFile lexFile -- >> \s -> return $ parseLexicon s
  m <- readFile modelFile
  css <- readFile cssFile >>= \s -> return $ primHtml s
  notes <- readFile notesFile
  return $ Resources lex css [] example m [] Nothing baseDir day notes modelPrefFile
loadResources :: String -> String -> String -> String -> String -> String -> String -> IO Resources
loadResources lexiconFile modelFile baseDir example day notesFile modelPrefFile = do
  lexFile <- getDataFileName lexiconFile
  cssFile <- getDataFileName "data/style.css"
  modelFile <- getDataFileName modelFile
  notesFile <- getDataFileName notesFile
  lex <- readFile lexFile -- >> \s -> return $ parseLexicon s
  m <- readFile modelFile
  css <- readFile cssFile >>= \s -> return $ primHtml s
  notes <- readFile notesFile
  return $ Resources lex css [] example m [] Nothing baseDir day notes modelPrefFile
loadResources lexiconFile modelFile baseDir example day notesFile modelPrefFile = do
  lexFile <- getDataFileName lexiconFile
  cssFile <- getDataFileName "data/style.css"
  modelFile <- getDataFileName modelFile
  notesFile <- getDataFileName notesFile
  lex <- readFile lexFile -- >> \s -> return $ parseLexicon s
  m <- readFile modelFile
  css <- readFile cssFile >>= \s -> return $ primHtml s
  notes <- readFile notesFile
  return $ Resources lex css [] example m [] Nothing baseDir day notes modelPrefFile