diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-12-30 13:34:03 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-12-30 13:34:03 -0400 |
| commit | 80e65c5c33200286a8be8c7cd595d7db104a5fa1 (patch) | |
| tree | aa2a8a637cb9741ec0b36556d33de1d1dd6abc1f | |
| parent | 26821b8a3467d665fd670550356e14386aaa83c4 (diff) | |
improve haddock
| -rw-r--r-- | src/Propellor/Property/Installer.hs | 9 | ||||
| -rw-r--r-- | src/Propellor/Property/Installer/Target.hs | 6 |
2 files changed, 10 insertions, 5 deletions
diff --git a/src/Propellor/Property/Installer.hs b/src/Propellor/Property/Installer.hs index c3558363..f03391f5 100644 --- a/src/Propellor/Property/Installer.hs +++ b/src/Propellor/Property/Installer.hs @@ -11,7 +11,10 @@ -- this to build a full, interactive installer, see -- <https://git.joeyh.name/index.cgi/secret-project.git/> -module Propellor.Property.Installer (module X) where +module Propellor.Property.Installer ( + module Propellor.Property.Installer.Types, + module Propellor.Property.Installer.Target +) where -import Propellor.Property.Installer.Types as X -import Propellor.Property.Installer.Target as X +import Propellor.Property.Installer.Types +import Propellor.Property.Installer.Target diff --git a/src/Propellor/Property/Installer/Target.hs b/src/Propellor/Property/Installer/Target.hs index 92b4c681..986c75ea 100644 --- a/src/Propellor/Property/Installer/Target.hs +++ b/src/Propellor/Property/Installer/Target.hs @@ -424,8 +424,10 @@ getMountsSizes = mapMaybe (parse . words) . lines <$> readProcess "findmnt" ps " parse _ = Nothing -- | How much of the target disks are used, compared with the size of the --- installer's root device. Since the main action is rsyncing the latter --- to the former, this allows roughly estimating the percent done. +-- installer's root device. Since the main part of an installation +-- is rsyncing the latter to the former, this allows roughly estimating +-- the percent done while an install is running, and can be used in some +-- sort of progress display. data TargetFilled = TargetFilled (Ratio Integer) deriving (Show, Eq) |