From 80e65c5c33200286a8be8c7cd595d7db104a5fa1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 30 Dec 2017 13:34:03 -0400 Subject: improve haddock --- src/Propellor/Property/Installer.hs | 9 ++++++--- src/Propellor/Property/Installer/Target.hs | 6 ++++-- 2 files changed, 10 insertions(+), 5 deletions(-) (limited to 'src') 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 -- -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) -- cgit v1.2.3