From 96e893d718dc6bad7b2abdefce886694f986c367 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 15 Feb 2016 11:13:26 -0400 Subject: remove Utility.Mounts et al; moved to mountpoints package --- Utility/Mounts.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 Utility/Mounts.hs (limited to 'Utility/Mounts.hs') diff --git a/Utility/Mounts.hs b/Utility/Mounts.hs new file mode 100644 index 000000000..192da31a1 --- /dev/null +++ b/Utility/Mounts.hs @@ -0,0 +1,21 @@ +{- portability shim for System.MountPoints + - + - Copyright 2016 Joey Hess + - + - License: BSD-2-clause + -} + +{-# LANGUAGE CPP #-} +{-# OPTIONS_GHC -fno-warn-tabs #-} + +module Utility.Mounts (getMounts, Mntent(..)) where + +import qualified System.MountPoints +import System.MountPoints (Mntent(..)) + +getMounts :: IO [Mntent] +#ifndef __ANDROID__ +getMounts = System.MountPoints.getMounts +#else +getMounts = System.MountPoints.getProcMounts +#endif -- cgit v1.2.3