sharding

1 files changed, 0 insertions, 8 deletions

diff --git a/Cost.hs b/Cost.hs
index ba3017b..8a47fcc 100644
--- a/Cost.hs
+++ b/Cost.hs
@@ -2,7 +2,6 @@
 
 module Cost where
 
-import Types
 import Entropy
 import Utility.HumanTime
 import Data.Monoid
@@ -72,13 +71,6 @@ reduceEntropy (Entropy a) b = Entropy (max 0 (a - b))
 -- | Things that can have entropy
 data UnknownPassword
 
--- | Naive calculation of the entropy of a password.
--- Does not take common passowrds and password generation patterns into
--- account, so this is an overestimation of how hard a password
--- is to crack.
-passwordEntropy :: Password -> Entropy UnknownPassword
-passwordEntropy (Password p) = Entropy $ floor $ totalEntropy p
-
 -- | CostCalc for a brute force linear search through an entropy space
 -- in which each step entails paying a cost.
 --