readTodoFile filename = do
  contents <- readFile filename
  return $ parseTodoFile filename contents


-- XXX: Move to some utility class
expandUser :: FilePath -> IO FilePath
-- "~" => "/home/foo"
expandUser "~" = getHomeDirectory
-- "~/bar" => "/home/foo/bar"