diff --git a/CHANGELOG.markdown b/CHANGELOG.markdown
--- a/CHANGELOG.markdown
+++ b/CHANGELOG.markdown
@@ -1,3 +1,7 @@
+1.3.2
+-----
+* Add `($<)` operator
+
 1.3.1.1
 -------
 * Fixed builds on GHC 7.2
diff --git a/contravariant.cabal b/contravariant.cabal
--- a/contravariant.cabal
+++ b/contravariant.cabal
@@ -1,6 +1,6 @@
 name:          contravariant
 category:      Control, Data
-version:       1.3.1.1
+version:       1.3.2
 license:       BSD3
 cabal-version: >= 1.6
 license-file:  LICENSE
diff --git a/src/Data/Functor/Contravariant.hs b/src/Data/Functor/Contravariant.hs
--- a/src/Data/Functor/Contravariant.hs
+++ b/src/Data/Functor/Contravariant.hs
@@ -43,7 +43,7 @@
   , phantom
 
   -- * Operators
-  , (>$<), (>$$<)
+  , (>$<), (>$$<), ($<)
 
   -- * Predicates
   , Predicate(..)
@@ -90,8 +90,6 @@
 import Data.Proxy
 #endif
 
-import Data.Void
-
 #ifdef MIN_VERSION_StateVar
 import Data.StateVar
 #endif
@@ -132,9 +130,14 @@
 -- 'contramap' f ≡ 'phantom'
 -- @
 phantom :: (Functor f, Contravariant f) => f a -> f b
-phantom x = absurd <$> contramap absurd x
+phantom x = () <$ x $< ()
 
-infixl 4 >$, >$<, >$$<
+infixl 4 >$, $<, >$<, >$$<
+
+-- | This is '>$' with its arguments flipped.
+($<) :: Contravariant f => f b -> b -> f a
+($<) = flip (>$)
+{-# INLINE ($<) #-}
 
 -- | This is an infix alias for 'contramap'
 (>$<) :: Contravariant f => (a -> b) -> f b -> f a