summaryrefslogtreecommitdiff
path: root/src/Propellor/Property
diff options
context:
space:
mode:
authorJoey Hess2017-12-30 13:34:03 -0400
committerJoey Hess2017-12-30 13:34:03 -0400
commit80e65c5c33200286a8be8c7cd595d7db104a5fa1 (patch)
treeaa2a8a637cb9741ec0b36556d33de1d1dd6abc1f /src/Propellor/Property
parent26821b8a3467d665fd670550356e14386aaa83c4 (diff)
improve haddock
Diffstat (limited to 'src/Propellor/Property')
-rw-r--r--src/Propellor/Property/Installer.hs9
-rw-r--r--src/Propellor/Property/Installer/Target.hs6
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)