tests :: Spec
tests =
    describe "Response tests" $ do
        let result :: Either String DMResponse
            result = eitherDecodeStrict . C8.pack $ okResponse
        it "can be parsed" $
          result `shouldSatisfy` isRight
        it "has status ok" $
          result `shouldSatisfy` statusOk
tests :: Spec
tests =
    describe "Response tests" $ do
        let result :: Either String DMResponse
            result = eitherDecodeStrict . C8.pack $ okResponse
        it "can be parsed" $
          result `shouldSatisfy` isRight
        it "has status ok" $
          result `shouldSatisfy` statusOk
tests =
    describe "Response tests" $ do
        let result :: Either String DMResponse
            result = eitherDecodeStrict . C8.pack $ okResponse
        it "can be parsed" $
          result `shouldSatisfy` isRight
        it "has status ok" $
          result `shouldSatisfy` statusOk