spec :: Spec
spec = do
  describe "Challenge 4" $ do
    fileContents <- runIO (readFile "./static/4.txt")
    it ("should find the one string that when decrypted says " ++ result) $ do
      (Xor.string $ S1.challenge4 $ lines fileContents) `shouldBe` result
spec :: Spec
spec = do
  describe "Challenge 4" $ do
    fileContents <- runIO (readFile "./static/4.txt")
    it ("should find the one string that when decrypted says " ++ result) $ do
      (Xor.string $ S1.challenge4 $ lines fileContents) `shouldBe` result
spec = do
  describe "Challenge 4" $ do
    fileContents <- runIO (readFile "./static/4.txt")
    it ("should find the one string that when decrypted says " ++ result) $ do
      (Xor.string $ S1.challenge4 $ lines fileContents) `shouldBe` result