better naming

warp/Network/Wai/Handler/Warp/Counter.hs

@@ -19,19 +19,19 @@ newCounter :: IO Counter
 newCounter = Counter <$> newTVarIO 0
 
 waitForZero :: Counter -> IO ()
-waitForZero (Counter ref) = atomically $ do
-    x <- readTVar ref
+waitForZero (Counter var) = atomically $ do
+    x <- readTVar var
     when (x > 0) retry
 
 waitForDecreased :: Counter -> IO ()
-waitForDecreased (Counter ref) = do
-    n0 <- atomically $ readTVar ref
+waitForDecreased (Counter var) = do
+    n0 <- atomically $ readTVar var
     atomically $ do
-        n <- readTVar ref
+        n <- readTVar var
         check (n < n0)
 
 increase :: Counter -> IO ()
-increase (Counter ref) = atomically $ modifyTVar' ref $ \x -> x + 1
+increase (Counter var) = atomically $ modifyTVar' var $ \x -> x + 1
 
 decrease :: Counter -> IO ()
-decrease (Counter ref) = atomically $ modifyTVar' ref $ \x -> x - 1
+decrease (Counter var) = atomically $ modifyTVar' var $ \x -> x - 1