module Data.Geo.GPX.Util.Remove(
removeWpts,
removeTrks,
removeRtes,
removeMetadata,
removeExtensions
) where
import Data.Geo.GPX.Accessor.Wpts
import Data.Geo.GPX.Accessor.Rtes
import Data.Geo.GPX.Accessor.Trks
import Data.Geo.GPX.Accessor.Metadata
import Data.Geo.GPX.Accessor.Extensions
removeWpts :: (Wpts a) =>
a
-> a
removeWpts = usingWpts (const [])
removeTrks :: (Trks a) =>
a
-> a
removeTrks = usingTrks (const [])
removeRtes :: (Rtes a) =>
a
-> a
removeRtes = usingRtes (const [])
removeMetadata :: (Metadata a) =>
a
-> a
removeMetadata = usingMetadata (const Nothing)
removeExtensions :: (Extensions a) =>
a
-> a
removeExtensions = usingExtensions (const Nothing)