From 6205bbac7abc919371a5e7af9e4ba1a8d70de85e Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Sun, 7 Aug 2016 12:09:53 -0400
Subject: basic password entropy calculation

---
 Types.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Types.hs')

diff --git a/Types.hs b/Types.hs
index 3b5d39f..8787273 100644
--- a/Types.hs
+++ b/Types.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings, GeneralizedNewtypeDeriving #-}
 
 module Types where
 
@@ -8,10 +8,12 @@ import Raaz.Core.Encode
 import Data.Monoid
 import Data.Word
 import Data.Time.Clock
+import Data.String
 import Text.Read
 
 -- | A password used to encrypt a key stored in keysafe.
 newtype Password = Password B.ByteString
+	deriving (IsString)
 
 -- | A name associated with a key stored in keysafe.
 newtype Name = Name B.ByteString
-- 
cgit v1.2.3