From 7a1c3fe6e81790cd7ddf58af4af1df1e42f57d19 Mon Sep 17 00:00:00 2001 From: aviaviavi Date: Tue, 10 Jul 2018 17:26:48 -0700 Subject: [PATCH] 0.8.3 negative index bugfix --- curl-runnings.cabal | 4 ++-- package.yaml | 2 +- src/Testing/CurlRunnings/Internal.hs | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/curl-runnings.cabal b/curl-runnings.cabal index 120f3e5..8a2afb8 100644 --- a/curl-runnings.cabal +++ b/curl-runnings.cabal @@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack -- --- hash: 977297357cc1e0f65ac81046d17df1764d440baa8d2b3b7f6849c17f0fabbe43 +-- hash: 54edbac6796242d948bec056fc052da66e68a038e47c65233a4600b0321666a3 name: curl-runnings -version: 0.8.2 +version: 0.8.3 synopsis: A framework for declaratively writing curl based API tests description: Please see the README on Github at category: Testing diff --git a/package.yaml b/package.yaml index 25a4512..f56bf45 100644 --- a/package.yaml +++ b/package.yaml @@ -1,5 +1,5 @@ name: curl-runnings -version: 0.8.2 +version: 0.8.3 github: aviaviavi/curl-runnings license: MIT author: Avi Press diff --git a/src/Testing/CurlRunnings/Internal.hs b/src/Testing/CurlRunnings/Internal.hs index 6d1ca6c..2385644 100644 --- a/src/Testing/CurlRunnings/Internal.hs +++ b/src/Testing/CurlRunnings/Internal.hs @@ -48,7 +48,7 @@ mapLeft _ (Right v) = Right v arrayGet :: [a] -> Int -> a arrayGet a i | i >= 0 = a !! i - | otherwise = reverse a !! (-i) + | otherwise = a !! (length a + i) data LogLevel = ERROR | INFO | DEBUG deriving (Show, Eq, Ord, Enum)