diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,7 @@
+#####   1.0.1
+    DmyHmp derive Binary
+    
+
 #####   1.0
     initial version
         
diff --git a/hora.cabal b/hora.cabal
--- a/hora.cabal
+++ b/hora.cabal
@@ -1,5 +1,5 @@
 name:                hora
-version:             1.0
+version:             1.0.1
 build-type:          Simple
 cabal-version:       >=1.10
 
@@ -35,7 +35,8 @@
     
   build-depends:       base >=4.7 && <5.0,
                        time,
-                       regex-do
+                       regex-do >= 3.1, 
+                       binary
                        
   hs-source-dirs:      src
   default-language:    Haskell2010
@@ -51,6 +52,7 @@
                         ConstraintKinds
                         GeneralizedNewtypeDeriving
                         RecordWildCards
+                        DeriveGeneric
                        
 
 test-suite spec
@@ -70,6 +72,7 @@
                         ConstraintKinds
                         GeneralizedNewtypeDeriving
                         RecordWildCards
+                        DeriveGeneric
 
   main-is: Main.hs
   other-modules:
@@ -84,4 +87,5 @@
                   hspec >= 2.1.7,
                   QuickCheck >= 2.8.1,
                   time,
-                  regex-do                          
+                  regex-do >= 3.1,
+                  binary                          
diff --git a/src/Data/Time/Hora/Type/DmyHm.hs b/src/Data/Time/Hora/Type/DmyHm.hs
--- a/src/Data/Time/Hora/Type/DmyHm.hs
+++ b/src/Data/Time/Hora/Type/DmyHm.hs
@@ -1,5 +1,7 @@
 module Data.Time.Hora.Type.DmyHm where
 
+import GHC.Generics
+import Data.Binary
 import Data.Fixed
 import qualified Data.Time.Hora.Type.YmdHms as S
 
@@ -11,7 +13,7 @@
     year::a,
     hour::a,
     minute::a
-    } deriving Eq
+    } deriving (Show, Eq)
 
 
 instance Functor DmyHm where
@@ -23,17 +25,17 @@
             minute = f0 (minute d0)
         } 
 
-deriving instance Show (DmyHm Int)
-deriving instance Show (DmyHm String)
 
-
 -- | @(DmyHm {day = "12", month = "12", year = "2016", hour = "17", minute = "32"},"59.727280400000")@
 type DmyHmp' = (DmyHm String, String)    --  dmyhm
 
 
 -- | @DmyHmp (DmyHm {day = 12, month = 12, year = 2016, hour = 17, minute = 32},59.727482058000)@
-newtype DmyHmp = DmyHmp (DmyHm Int, Pico) deriving (Eq,Show)   --  dmyhm, pico
+newtype DmyHmp = DmyHmp (DmyHm Int, Pico) deriving (Eq, Show, Generic)  --  dmyhm, pico
 
+deriving instance Generic (DmyHm Int)
+instance Binary (DmyHm Int)
+instance Binary DmyHmp
 
 {- | convert from more precise to more common type -}
 pico2second::DmyHmp -> S.YmdHms