From 4f64a8453563949210e757466031ab37bf033227 Mon Sep 17 00:00:00 2001
From: Nikita Volkov <nikita.y.volkov@mail.ru>
Date: Mon, 30 Jul 2018 16:56:36 +0300
Subject: [PATCH] Add Word80 and Int80

---
 src/Data/DoubleWord.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Data/DoubleWord.hs b/src/Data/DoubleWord.hs
index 862ee70..05a9b43 100644
--- a/src/Data/DoubleWord.hs
+++ b/src/Data/DoubleWord.hs
@@ -5,17 +5,19 @@
 {-# LANGUAGE DeriveGeneric #-}
 
 -- | This module provides strict (low and high halves are unpacked)
---   signed and unsigned binary word data types of sizes 96, 128,
+--   signed and unsigned binary word data types of sizes 80, 96, 128,
 --   160, 192, 224, and 256 bits.
 module Data.DoubleWord
   ( module Data.BinaryWord
   , module Data.DoubleWord.Base
+  , Word80(..)
   , Word96(..)
   , Word128(..)
   , Word160(..)
   , Word192(..)
   , Word224(..)
   , Word256(..)
+  , Int80(..)
   , Int96(..)
   , Int128(..)
   , Int160(..)
@@ -32,6 +34,8 @@ import Data.BinaryWord
 import Data.DoubleWord.Base
 import Data.DoubleWord.TH
 
+mkUnpackedDoubleWord "Word80"  ''Word16  "Int80"  ''Int16  ''Word64
+  [''Typeable, ''Data, ''Generic]
 mkUnpackedDoubleWord "Word96"  ''Word32  "Int96"  ''Int32  ''Word64
   [''Typeable, ''Data, ''Generic]
 mkUnpackedDoubleWord "Word128" ''Word64  "Int128" ''Int64  ''Word64