diff --git a/Data/Bifunctor/Flip.hs b/Data/Bifunctor/Flip.hs
new file mode 100644
--- /dev/null
+++ b/Data/Bifunctor/Flip.hs
@@ -0,0 +1,9 @@
+{-# LANGUAGE PatternSynonyms #-}
+module Data.Bifunctor.Flip where
+
+import Control.Category.Dual
+
+type Flip = Dual
+
+pattern Flip :: f a b -> Dual f b a
+pattern Flip { flip } = Dual flip
diff --git a/dual.cabal b/dual.cabal
--- a/dual.cabal
+++ b/dual.cabal
@@ -1,5 +1,5 @@
 name:                dual
-version:             0.1.0.3
+version:             0.1.1.0
 synopsis:            Dual category
 -- description:         
 license:             BSD3
@@ -12,7 +12,9 @@
 cabal-version:       >=1.10
 
 library
-  exposed-modules:     Control.Category.Dual
+  exposed-modules:
+    Control.Category.Dual
+    Data.Bifunctor.Flip
   -- other-modules:       
   -- other-extensions:    
   build-depends:       base >=4.7 && <5