Quiesce the last few warnings from the tests.

Author: Patrick Thomson

test/Data/Functor/Listable.hs

@@ -107,8 +107,8 @@ liftCons4 tiers1 tiers2 tiers3 tiers4 f = mapT (uncurry4 f) (tiers1 >< tiers2 ><
 -- | Lifts a quinary constructor to a list of tiers, given lists of tiers for its arguments.
 --
 --   Commonly used in the definition of 'Listable1' and 'Listable2' instances.
-liftCons5 :: [Tier a] -> [Tier b] -> [Tier c] -> [Tier d] -> [Tier e] -> (a -> b -> c -> d -> e -> f) -> [Tier f]
-liftCons5 tiers1 tiers2 tiers3 tiers4 tiers5 f = mapT (uncurry5 f) (tiers1 >< tiers2 >< tiers3 >< tiers4 >< tiers5) `addWeight` 1
+_liftCons5 :: [Tier a] -> [Tier b] -> [Tier c] -> [Tier d] -> [Tier e] -> (a -> b -> c -> d -> e -> f) -> [Tier f]
+_liftCons5 tiers1 tiers2 tiers3 tiers4 tiers5 f = mapT (uncurry5 f) (tiers1 >< tiers2 >< tiers3 >< tiers4 >< tiers5) `addWeight` 1
   where uncurry5 f (a, (b, (c, (d, e)))) = f a b c d e
 
 -- | Lifts a senary constructor to a list of tiers, given lists of tiers for its arguments.

test/Semantic/IO/Spec.hs

@@ -5,7 +5,6 @@ import Prelude hiding (readFile)
 import Control.Monad.IO.Class
 import Data.List
 import System.Directory
-import System.Exit (ExitCode (..))
 import System.IO.Temp
 import Data.String
 

test/Semantic/Stat/Spec.hs

@@ -11,7 +11,6 @@ import System.Environment
 
 import Test.Tasty
 import Test.Tasty.HUnit
-import Test.Tasty.Runners
 
 withSocketPair :: ((Socket, Socket) -> IO c) -> IO c
 withSocketPair = bracket create release
@@ -32,7 +31,7 @@ testTree = testCaseSteps "Semantic.Stat.Spec" $ \step -> do
   step "Handles stats addr with just hostname"
   case_handles_stats_addr_with_just_hostname
   step "takes dogstats host from environment"
-  case_takes_stats_addr_from_environment
+  case_takes_dogstats_host_from_environment
   step "rendering"
   case_render_counters *> case_render_tags
   step "stats deliver datagram"