expand :: FileContents -> FileContents -> FileContents
expand [] []
  = []
expand x []
  = x
expand x defFile
  =
  where
    (u, v)     = splitText separators x
    (_, n)     = splitText "\n" defFile
    g          = getKeywordDefs n
    wordList   = combine u v



-- You may wish to uncomment and implement this helper function
-- when implementing expand
replaceWord :: String -> KeywordDefs -> String
replaceWord search keyWords
  = x
  where
    (x : _) = lookUp search keyWords