Tags are not passed in the network call

[deveshrastogi]

In the below function, tags are being parsed but never sent over the network call

    mPick <- gpPickle <$> atomically (readTVar pickle)
    case mPick of
        Nothing -> pure () -- no connection, give up.
        Just (Pickle sock cfg) -> do
            let tags = parseTags $ (fromMaybe M.empty mTags) <> (statsdTags cfg)
                sampling = maybe "" (\s -> "|@" <> showT s ) mSampling
                name = (statsdPrefix cfg) <> n
                msg  = name <> ":" <> (showT val) <> "|" <> kind <> sampling
            when (statsdVerbose cfg) (T.putStrLn $ "Sending metric: " <> msg)
            void $ (try $ send sock $ T.encodeUtf8 msg :: IO(Either SomeException Int))