diff --git a/CHANGES b/CHANGES
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,6 @@
+v0.7.0.2
+* Forgot to export "status" lens,
+
 v0.7.0.1
 * Added new "completed_timestamp" field to private order types.
 
diff --git a/bitx-bitcoin.cabal b/bitx-bitcoin.cabal
--- a/bitx-bitcoin.cabal
+++ b/bitx-bitcoin.cabal
@@ -1,5 +1,5 @@
 name:                bitx-bitcoin
-version:             0.7.0.1
+version:             0.7.0.2
 synopsis:            A Haskell library for working with the BitX bitcoin exchange.
 
 description:
@@ -36,7 +36,7 @@
 
 homepage:            https://github.com/tebello-thejane/bitx-haskell
 
-tested-with:         GHC >=7.8.1 && <=7.10.2
+tested-with:         GHC >=7.8.1 && <=8.0.1
 
 --------------------------------------------------------------------------------
 
diff --git a/src/Network/Bitcoin/BitX/Private/Order.hs b/src/Network/Bitcoin/BitX/Private/Order.hs
--- a/src/Network/Bitcoin/BitX/Private/Order.hs
+++ b/src/Network/Bitcoin/BitX/Private/Order.hs
@@ -47,9 +47,9 @@
  -}
 
 getAllOrders :: BitXAuth -> Maybe CcyPair -> Maybe RequestStatus -> IO (BitXAPIResponse [PrivateOrder])
-getAllOrders auth cpair status = simpleBitXGetAuth_ auth url
+getAllOrders auth cpair stat = simpleBitXGetAuth_ auth url
     where
-        url = "listorders" ++ case (cpair, status) of
+        url = "listorders" ++ case (cpair, stat) of
             (Nothing, Nothing)  -> ""
             (Just pr, Nothing)  -> "?pair=" ++ show pr
             (Nothing, Just st)  -> "?state=" ++ show st
diff --git a/src/Network/Bitcoin/BitX/Types.hs b/src/Network/Bitcoin/BitX/Types.hs
--- a/src/Network/Bitcoin/BitX/Types.hs
+++ b/src/Network/Bitcoin/BitX/Types.hs
@@ -125,7 +125,8 @@
     HasDiscarded(..),
     HasExercised(..),
     HasName(..),
-    HasIsBuy(..)
+    HasIsBuy(..),
+    HasStatus(..)
   ) where
 
 import Data.Aeson (FromJSON(..))
diff --git a/test/Network/Bitcoin/BitX/Spec/Specs/LensSpec.hs b/test/Network/Bitcoin/BitX/Spec/Specs/LensSpec.hs
--- a/test/Network/Bitcoin/BitX/Spec/Specs/LensSpec.hs
+++ b/test/Network/Bitcoin/BitX/Spec/Specs/LensSpec.hs
@@ -185,3 +185,10 @@
     let _ = x ^. BitX.orderType
     let _ = x ^. BitX.volume
     Nothing
+
+_withdrawalRequest :: Maybe Int
+_withdrawalRequest = do
+    let x = BitX.WithdrawalRequest PENDING ""
+    let _ = x ^. BitX.status
+    let _ = x ^. BitX.id
+    Nothing