{-# LANGUAGE CPP #-}{-# OPTIONS_GHC -Wno-unused-imports #-}moduleDistribution.Compat.FilePath(isExtensionOf,stripExtension)whereimportData.List(isSuffixOf,stripPrefix)importSystem.FilePath
#if !MIN_VERSION_filepath(1,4,2)
isExtensionOf::String->FilePath->BoolisExtensionOfext@('.':_)=isSuffixOfext.takeExtensionsisExtensionOfext=isSuffixOf('.':ext).takeExtensions
#endif

#if !MIN_VERSION_filepath(1,4,1)
stripExtension::String->FilePath->MaybeFilePathstripExtension[]path=JustpathstripExtensionext@(x:_)path=stripSuffixdotExtpathwheredotExt=ifisExtSeparatorxthenextelse'.':extstripSuffix::Eqa=>[a]->[a]->Maybe[a]stripSuffixxsys=fmapreverse$stripPrefix(reversexs)(reverseys)
#endif