diff --git a/CHANGELOG.md b/CHANGELOG.md
new file mode 100644
--- /dev/null
+++ b/CHANGELOG.md
@@ -0,0 +1,2 @@
+- 0.1.1.0
+  - Add Dual, All, Any, Sum, Product, First and Last instances
diff --git a/binary-orphans.cabal b/binary-orphans.cabal
--- a/binary-orphans.cabal
+++ b/binary-orphans.cabal
@@ -3,7 +3,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           binary-orphans
-version:        0.1.0.0
+version:        0.1.1.0
 synopsis:       Orphan instances for binary
 description:    `binary-orphans` defines orphan instances for types in some popular packages.
 category:       Web
@@ -18,6 +18,7 @@
 cabal-version:  >= 1.10
 
 extra-source-files:
+    CHANGELOG.md
     README.md
 
 source-repository head
diff --git a/src/Data/Binary/Orphans.hs b/src/Data/Binary/Orphans.hs
--- a/src/Data/Binary/Orphans.hs
+++ b/src/Data/Binary/Orphans.hs
@@ -32,6 +32,7 @@
 import qualified Data.HashMap.Lazy as HM
 import qualified Data.HashSet as HS
 import           Data.Hashable (Hashable)
+import qualified Data.Monoid as Monoid
 import qualified Data.Scientific as S
 import qualified Data.Tagged as Tagged
 import qualified Data.Time as Time
@@ -113,3 +114,20 @@
 instance Binary Time.LocalTime where
   get = liftM2 Time.LocalTime get get
   put (Time.LocalTime d tod) = put d >> put tod
+
+-- Monoid
+
+-- | /Since: binary-orphans-0.1.1.0/
+instance Binary a => Binary (Monoid.Dual a)
+-- | /Since: binary-orphans-0.1.1.0/
+instance Binary Monoid.All
+-- | /Since: binary-orphans-0.1.1.0/
+instance Binary Monoid.Any
+-- | /Since: binary-orphans-0.1.1.0/
+instance Binary a => Binary (Monoid.Sum a)
+-- | /Since: binary-orphans-0.1.1.0/
+instance Binary a => Binary (Monoid.Product a)
+-- | /Since: binary-orphans-0.1.1.0/
+instance Binary a => Binary (Monoid.First a)
+-- | /Since: binary-orphans-0.1.1.0/
+instance Binary a => Binary (Monoid.Last a)
diff --git a/test/Tests.hs b/test/Tests.hs
--- a/test/Tests.hs
+++ b/test/Tests.hs
@@ -10,6 +10,7 @@
 import Data.HashMap.Lazy (HashMap)
 import Data.HashSet (HashSet)
 import Data.Time (UTCTime, Day, DiffTime, NominalDiffTime, TimeZone, TimeOfDay, LocalTime)
+import Data.Monoid (Sum)
 
 main :: IO ()
 main = defaultMain tests