Refactor exchange namespaces

1 files changed, 1 insertions, 2 deletions

diff --git a/src/Network/BitTorrent/Core/PeerId.hs b/src/Network/BitTorrent/Core/PeerId.hs
index 3f90347c..8bd175e5 100644
--- a/src/Network/BitTorrent/Core/PeerId.hs
+++ b/src/Network/BitTorrent/Core/PeerId.hs
@@ -58,7 +58,6 @@ import System.Locale    (defaultTimeLocale)
 import Text.PrettyPrint hiding ((<>))
 import Text.PrettyPrint.Class
 import Text.Read        (readMaybe)
-import Paths_bittorrent (version)
 
 import Data.Torrent.Client
 
@@ -173,7 +172,7 @@ defaultClientId = "HS"
 -- package.  Version is taken from .cabal file.
 defaultVersionNumber :: ByteString
 defaultVersionNumber = BS.take 4 $ BC.pack $ foldMap show $
-                         versionBranch version
+                         versionBranch $ ciVersion libClientInfo
 
 {-----------------------------------------------------------------------
 --  Generation