summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/Property/Mount.hs12
1 files changed, 0 insertions, 12 deletions
diff --git a/src/Propellor/Property/Mount.hs b/src/Propellor/Property/Mount.hs
deleted file mode 100644
index 804407e9..00000000
--- a/src/Propellor/Property/Mount.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-module Propellor.Property.Mount where
-
-import Propellor
-import Utility.SafeCommand
-
-mountPoints :: IO [FilePath]
-mountPoints = lines <$> readProcess "findmnt" ["-rn", "--output", "target"]
-
-umountLazy :: FilePath -> IO ()
-umountLazy mnt =
- unlessM (boolSystem "umount" [ Param "-l", Param mnt ]) $
- errorMessage $ "failed unmounting " ++ mnt