-- | get the 'noReturnTraffic' for a 'NetworkObject' if it has one or
--   False if it doesn't
noReturnTraffic :: NetworkObject -> NMLReader Bool
noReturnTraffic n = case n of
            (Single Link _)                 -> liftM (fromMaybe False) (q n)
            _                               -> return False
    where
        q = queryAttrib "nml:noReturnTraffic" (=="true")
noReturnTraffic :: NetworkObject -> NMLReader Bool
noReturnTraffic n = case n of
            (Single Link _)                 -> liftM (fromMaybe False) (q n)
            _                               -> return False
    where
        q = queryAttrib "nml:noReturnTraffic" (=="true")
noReturnTraffic n = case n of
            (Single Link _)                 -> liftM (fromMaybe False) (q n)
            _                               -> return False
    where
        q = queryAttrib "nml:noReturnTraffic" (=="true")