[#288] Use shellmet library

Resolves #288

stack-8.2.2.yaml

@@ -9,6 +9,7 @@ extra-deps:
   - brick-0.41.4
   - config-ini-0.2.4.0
   - relude-0.4.0
+  - shellmet-0.0.0
   - tomland-1.0.0
   - megaparsec-7.0.4            # needed for tomland-0.5.0
   - parser-combinators-1.0.0    # needed for megaparsec >= 7

stack-8.4.4.yaml

@@ -9,6 +9,7 @@ extra-deps:
   - brick-0.41.4
   - config-ini-0.2.4.0
   - relude-0.4.0
+  - shellmet-0.0.0
   - tomland-1.0.0
   - megaparsec-7.0.4            # needed for tomland-0.5.0
   - neat-interpolation-0.3.2.4  # needed because of megaparsec >= 7

stack.yaml

@@ -5,6 +5,7 @@ packages:
   - summoner-tui/
 
 extra-deps:
+  - shellmet-0.0.0
   - tomland-1.0.0
   - brick-0.41.4
   - config-ini-0.2.4.0  # needed for brick

summoner-cli/src/Summoner/Process.hs

@@ -10,18 +10,10 @@ module Summoner.Process
 
 import Control.Exception (catch)
 import System.Directory (removeFile)
-import System.Process (callCommand, showCommandForUser)
 
 import Summoner.Ansi (errorMessage)
 
 
--- | This is needed to be able to call commands by writing strings.
-instance (a ~ Text, b ~ ()) => IsString ([a] -> IO b) where
-    fromString cmd args = do
-        let cmdStr = showCommandForUser cmd (map toString args)
-        putStrLn $ "⚙  " ++ cmdStr
-        callCommand cmdStr
-
 -- | Delete file, but just print a message if delete fails and continue instead of raising an error.
 deleteFile :: FilePath -> IO  ()
 deleteFile file = removeFile file `catch` printError

summoner-cli/src/Summoner/Project.hs

@@ -9,6 +9,7 @@ module Summoner.Project
 
 import Data.List (intersect)
 import NeatInterpolation (text)
+import Shellmet ()
 import System.Directory (setCurrentDirectory)
 
 import Summoner.Ansi (Color (Green), beautyPrint, bold, errorMessage, infoMessage, setColor,

summoner-cli/summoner.cabal

@@ -65,6 +65,7 @@ library
                      , optparse-applicative ^>= 0.14.2.0
                      , process ^>= 1.6.1.0
                      , relude ^>= 0.4.0
+                     , shellmet >= 0.0.0
                      , text ^>= 1.2.3.0
                      , time ^>= 1.8
                      , tomland ^>= 1.0