dvFuncDesc :: Reader DrasilState String
dvFuncDesc = do
  g <- ask
  let dvDesc False = ""
      dvDesc _ = "Calculates values that can be immediately derived from the" ++
        " inputs"
  return $ dvDesc $ "derived_values" `elem` defList (codeSpec g)
dvFuncDesc :: Reader DrasilState String
dvFuncDesc = do
  g <- ask
  let dvDesc False = ""
      dvDesc _ = "Calculates values that can be immediately derived from the" ++
        " inputs"
  return $ dvDesc $ "derived_values" `elem` defList (codeSpec g)
dvFuncDesc = do
  g <- ask
  let dvDesc False = ""
      dvDesc _ = "Calculates values that can be immediately derived from the" ++
        " inputs"
  return $ dvDesc $ "derived_values" `elem` defList (codeSpec g)