{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TupleSections #-}
module Stack.IDE
( listPackages
, listTargets
) where
import qualified Data.Map as Map
import qualified Data.Set as Set
import qualified Data.Text as T
import Stack.Config (getLocalPackages)
import Stack.Package (readPackageUnresolvedDir, gpdPackageName)
import Stack.Prelude
import Stack.Types.Config
import Stack.Types.NamedComponent
listPackages :: HasEnvConfig env => RIO env ()
listPackages = do
packageDirs <- liftM (map lpvRoot . Map.elems . lpProject) getLocalPackages
forM_ packageDirs $ \dir -> do
(gpd, _) <- readPackageUnresolvedDir dir False
(logInfo . display) (gpdPackageName gpd)
listTargets :: HasEnvConfig env => RIO env ()
listTargets =
do rawLocals <- lpProject <$> getLocalPackages
logInfo $ display
(T.intercalate
"\n"
(map
renderPkgComponent
(concatMap
toNameAndComponent
(Map.toList rawLocals))))
where
toNameAndComponent (pkgName,view') =
map (pkgName, ) (Set.toList (lpvComponents view'))