diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/src/Main.hs b/src/Main.hs index 3e00f18..05013c4 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -17,7 +17,6 @@ import SlackBuilder.LatestVersionCheck import SlackBuilder.Update import qualified Toml import Data.Text (Text) -import qualified Data.Text as Text import qualified Data.Text.IO as Text import Control.Monad.Trans.Reader (ReaderT(..), asks) import SlackBuilder.Package (PackageDescription(..), renderTextWithVersion) @@ -33,10 +32,6 @@ import System.Console.ANSI ) import Data.Maybe (mapMaybe) import qualified Text.URI as URI -import System.Directory (listDirectory) -import qualified Data.HashMap.Strict as HashMap -import SlackBuilder.Info (PackageInfo(..), readInfoFile) -import Control.Monad (unless) autoUpdatable :: [PackageSettings] -> [PackageDescription] autoUpdatable = mapMaybe go @@ -102,32 +97,6 @@ check = SlackBuilderT (asks (getField @"packages")) >>= mapM_ checkUpdateAvailability >> liftIO (putStrLn "") -installed :: SlackBuilderT () -installed = do - listing <- listRepository - database <- foldr createDataBase HashMap.empty . mapMaybe createEntry - <$> liftIO (listDirectory "/var/lib/pkgtools/packages") - traverse_ findInfo $ HashMap.intersectionWith (,) database listing - where - findInfo (installed'@Package.DataBaseEntry{ name, version }, fromRepository) = do - packageInfo <- readInfoFile fromRepository name - unless (version == getField @"version" packageInfo) $ liftIO $ putStrLn $ - show installed' <> " (available: " <> Text.unpack (getField @"version" packageInfo) <> ")" - createDataBase entry@Package.DataBaseEntry{ name } = - HashMap.insert name entry - createEntry filename = createEntryFromChunks - $ Text.split (== '-') - $ Text.reverse - $ Text.pack filename - createEntryFromChunks (build : arch : version : name) = Just - Package.DataBaseEntry - { arch = Text.reverse arch - , build = Text.reverse build - , version = Text.reverse version - , name = Text.reverse (Text.intercalate "-" name) - } - createEntryFromChunks _ = Nothing - main :: IO () main = execParser slackBuilderParser >>= handleExceptions . withCommandLine @@ -147,4 +116,3 @@ main = execParser slackBuilderParser executeCommand = \case CheckCommand -> check Up2DateCommand packageName -> up2Date packageName - InstalledCommand -> installed |