From 82000dadd4293921122e3323865c3d9a542251c0 Mon Sep 17 00:00:00 2001
From: Parnell Springmeyer <parnell@digitalmentat.com>
Date: Sun, 30 Apr 2017 18:01:45 -0500
Subject: [PATCH] `serverPort` => `clientServerPort`

---
 tests/LowLevelTests.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/tests/LowLevelTests.hs b/tests/LowLevelTests.hs
index 7687999..fc33846 100644
--- a/tests/LowLevelTests.hs
+++ b/tests/LowLevelTests.hs
@@ -7,7 +7,6 @@
 {-# LANGUAGE RecordWildCards            #-}
 {-# LANGUAGE ScopedTypeVariables        #-}
 {-# LANGUAGE TupleSections              #-}
-{-# LANGUAGE ViewPatterns               #-}
 {-# OPTIONS_GHC -fno-warn-orphans       #-}
 
 module LowLevelTests where
@@ -24,9 +23,9 @@ import qualified Data.Map.Strict                           as M
 import qualified Data.Set                                  as S
 import           GHC.Exts                                  (fromList, toList)
 import           Network.GRPC.LowLevel
-import           Network.GRPC.LowLevel.GRPC (threadDelaySecs)
 import qualified Network.GRPC.LowLevel.Call.Unregistered   as U
 import qualified Network.GRPC.LowLevel.Client.Unregistered as U
+import           Network.GRPC.LowLevel.GRPC                (threadDelaySecs)
 import qualified Network.GRPC.LowLevel.Server.Unregistered as U
 import qualified Pipes                                     as P
 import           Test.Tasty
@@ -339,7 +338,7 @@ testAuthMetadataPropagate = testCase "auth metadata inherited by children" $ do
                                             (Just "tests/ssl/localhost.crt")
                                             Nothing
                                             (Just server1ClientPlugin)),
-                  serverPort = 50052
+                  clientServerPort = 50052
                 }
 
     server = do