Clean hlint and cabal warnings

test/Support.hs

@@ -36,7 +36,7 @@ instance Functor Acc where
   fmap f (Acc g) = Acc $ \s -> let (a, s') = g s in (f a, s')
 
 instance Applicative Acc where
-  pure a = Acc (\s -> (a, s))
+  pure a = Acc (a,)
   Acc f <*> Acc x = Acc $ \s -> let (f', s') = f s; (a, s'') = x s' in (f' a, s'')
 
 instance Monad Acc where
@@ -52,6 +52,7 @@ withTestLogEnv = bracket (initLogEnv "test" "test") closeScribes
 -- | Interpret `HASSEff` in `Acc`: record `CallService`, drop tracing/debug.
 interp :: HASSEff a -> Acc a
 interp (CallService _ svc) = Acc $ \s -> ((), s ++ [svc])
+interp (CallServices _ svc) = Acc $ \s -> ((), s ++ svc)
 interp (Debug _) = pure ()
 interp (Trace _ _) = pure ()