Fix supervisor and proper rate limiting

test/Main.hs

@@ -3,14 +3,12 @@ module Main (main) where
 import Test.Hspec (hspec)
 import qualified AFRPLawsSpec
 import qualified AFRPSpec
-import qualified BackoffProp
 import qualified BedroomSpec
 import qualified BusSpec
 import qualified ConnectionSpec
 import qualified GraphingSpec
 import qualified MetricsSpec
 import qualified RuntimeSpec
-import qualified SupervisorSpec
 
 main :: IO ()
 main = hspec $ do
@@ -22,5 +20,3 @@ main = hspec $ do
   GraphingSpec.spec
   MetricsSpec.spec
   RuntimeSpec.spec
-  SupervisorSpec.spec
-  BackoffProp.spec