25 lines
603 B
Haskell
25 lines
603 B
Haskell
{- portability shim for System.MountPoints
|
|
-
|
|
- Copyright 2016 Joey Hess <id@joeyh.name>
|
|
-
|
|
- 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(..))
|
|
|
|
import Utility.Exception
|
|
|
|
getMounts :: IO [Mntent]
|
|
#ifndef __ANDROID__
|
|
getMounts = System.MountPoints.getMounts
|
|
-- That will crash when running on Android, so fall back to this.
|
|
`catchNonAsync` const System.MountPoints.getProcMounts
|
|
#else
|
|
getMounts = System.MountPoints.getProcMounts
|
|
#endif
|