diff --git a/Data/Object/Base.hs b/Data/Object/Base.hs
--- a/Data/Object/Base.hs
+++ b/Data/Object/Base.hs
@@ -64,6 +64,9 @@
     , deriveSuccessConvs
       -- * Helper functions
     , lookupObject
+    , lookupScalar
+    , lookupSequence
+    , lookupMapping
       -- * Re-export
     , module Data.Convertible.Text
     ) where
@@ -346,3 +349,27 @@
              -> [(k, Object k v)]
              -> Attempt o
 lookupObject key = ca <=< A.lookup (convertSuccess key)
+
+lookupScalar :: ( MonadFailure ObjectExtractError m
+                , Failure (A.LookupFailure k) m
+                , Eq k)
+             => k
+             -> [(k, Object k v)]
+             -> m v
+lookupScalar key = fromScalar <=< A.lookup key
+
+lookupSequence :: ( MonadFailure ObjectExtractError m
+                  , Failure (A.LookupFailure k) m
+                  , Eq k)
+               => k
+               -> [(k, Object k v)]
+               -> m [Object k v]
+lookupSequence key = fromSequence <=< A.lookup key
+
+lookupMapping :: ( MonadFailure ObjectExtractError m
+                 , Failure (A.LookupFailure k) m
+                 , Eq k)
+              => k
+              -> [(k, Object k v)]
+              -> m [(k, Object k v)]
+lookupMapping key = fromMapping <=< A.lookup key
diff --git a/Data/Object/Scalar.hs b/Data/Object/Scalar.hs
--- a/Data/Object/Scalar.hs
+++ b/Data/Object/Scalar.hs
@@ -27,7 +27,6 @@
 import System.Locale (defaultTimeLocale)
 import Data.Time.Format (formatTime)
 import Data.Attempt
-import Data.Convertible.Text
 
 data Scalar = Numeric   Rational
             | Text      Text
diff --git a/data-object.cabal b/data-object.cabal
--- a/data-object.cabal
+++ b/data-object.cabal
@@ -1,5 +1,5 @@
 name:            data-object
-version:         0.2.0.1
+version:         0.2.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman, Nicolas Pouillard