doc: Modify documentation

src/System/Hapistrano.hs

@@ -271,7 +271,6 @@ playScriptLocally cmds =
 
 -- | Create a file with an initial config file by getting information from the
 -- user.
-
 initConfig :: IO String -> IO ()
 initConfig getLine' = do
   configFilePath <- (FilePath.</> "hap.yml") <$> Directory.getCurrentDirectory

src/System/Hapistrano/Config.hs

@@ -31,13 +31,13 @@ import           Data.Aeson.Types           (typeMismatch)
 import           Data.Function              (on)
 import           Data.List                  (nubBy)
 import           Data.Maybe                 (maybeToList)
-import           Data.Yaml
 import           Data.Proxy
+import           Data.Yaml
 import           Numeric.Natural
 import           Path
 import           System.Hapistrano.Commands
-import           System.Hapistrano.Types    (ReleaseFormat(..), Shell(..),
-                                             Source(..), TargetSystem(..))
+import           System.Hapistrano.Types    (ReleaseFormat (..), Shell (..),
+                                             Source (..), TargetSystem (..))
 
 -- | Hapistrano configuration typically loaded from @hap.yaml@ file.
 
@@ -110,7 +110,8 @@ data BuildCommand = BuildCommand
   , buildCommandExecutionMode :: ExecutionMode
   } deriving (Eq, Ord, Show)
 
--- | Execute either on Lead or All targets.
+-- | The execution mode determines whether commands will be executed
+-- on the lead target or on all targets.
 data ExecutionMode = LeadTarget | AllTargets
   deriving (Eq, Ord, Show)