constModDesc :: Reader DrasilState String
constModDesc = do
  g <- ask
  let cDesc [] = ""
      cDesc _ = "the structure for holding constant values"
  return $ cDesc $ filter (flip member (eMap $ codeSpec g) . codeName) 
    (constants $ csi $ codeSpec g)
constModDesc :: Reader DrasilState String
constModDesc = do
  g <- ask
  let cDesc [] = ""
      cDesc _ = "the structure for holding constant values"
  return $ cDesc $ filter (flip member (eMap $ codeSpec g) . codeName) 
    (constants $ csi $ codeSpec g)
constModDesc = do
  g <- ask
  let cDesc [] = ""
      cDesc _ = "the structure for holding constant values"
  return $ cDesc $ filter (flip member (eMap $ codeSpec g) . codeName) 
    (constants $ csi $ codeSpec g)