extractResourceTypes rs | null rs = []
                        | otherwise = sepBy "," rs
extractResourceTypes rs | null rs = []
                        | otherwise = sepBy "," rs
extractResourceTypes rs | null rs = []
                        | otherwise = sepBy "," rs