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