0.8.3 negative index bugfix

aviaviavi · Jul 11, 2018 · 7a1c3fe · 7a1c3fe
1 parent 075d465
commit 7a1c3fe
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git 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 <https://github.com/aviaviavi/curl-runnings#readme>
 category:       Testing

diff --git 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
@@ -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)