module Sound.Libcdio.Read.Filesystem
(
Foreign.Filesystem ( .. )
, Foreign.FilesystemClass ( .. )
, Foreign.FilesystemClasses
, Foreign.fsAny
, Foreign.fsAnyVcd
, Foreign.IsoAnalysis ( .. )
, trackType
) where
import qualified Foreign.Libcdio.CdTypes as Foreign
import Sound.Libcdio.Track
import Sound.Libcdio.Types.Cdio
trackType :: Track -> Cdio (Maybe Foreign.Filesystem, Foreign.FilesystemClasses, Maybe Foreign.IsoAnalysis)
trackType :: Track
-> Cdio (Maybe Filesystem, FilesystemClasses, Maybe IsoAnalysis)
trackType = (Cdio
-> IO (Maybe Filesystem, FilesystemClasses, Maybe IsoAnalysis))
-> Cdio (Maybe Filesystem, FilesystemClasses, Maybe IsoAnalysis)
forall a. (Cdio -> IO a) -> Cdio a
liftCdio ((Cdio
-> IO (Maybe Filesystem, FilesystemClasses, Maybe IsoAnalysis))
-> Cdio (Maybe Filesystem, FilesystemClasses, Maybe IsoAnalysis))
-> (Track
-> Cdio
-> IO (Maybe Filesystem, FilesystemClasses, Maybe IsoAnalysis))
-> Track
-> Cdio (Maybe Filesystem, FilesystemClasses, Maybe IsoAnalysis)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Cdio
-> Track
-> IO (Maybe Filesystem, FilesystemClasses, Maybe IsoAnalysis))
-> Track
-> Cdio
-> IO (Maybe Filesystem, FilesystemClasses, Maybe IsoAnalysis)
forall a b c. (a -> b -> c) -> b -> a -> c
flip Cdio
-> Track
-> IO (Maybe Filesystem, FilesystemClasses, Maybe IsoAnalysis)
Foreign.trackType