basic password entropy calculation

1 files changed, 3 insertions, 1 deletions

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