module Stackctl.Version ( logVersion ) where import Stackctl.Prelude import Data.Version import qualified Paths_stackctl as Pkg import Prelude (putStrLn) logVersion :: MonadIO m => m () logVersion :: forall (m :: * -> *). MonadIO m => m () logVersion = forall (m :: * -> *) a. MonadIO m => IO a -> m a liftIO forall a b. (a -> b) -> a -> b $ String -> IO () putStrLn forall a b. (a -> b) -> a -> b $ (String "Stackctl v" forall a. Semigroup a => a -> a -> a <>) forall a b. (a -> b) -> a -> b $ Version -> String showVersion Version Pkg.version