isFullyDecrypted :: PartiallyDecrypted -> Bool
isFullyDecrypted (PartiallyDecrypted m) = all (\i -> member i m) [0..7]
isFullyDecrypted :: PartiallyDecrypted -> Bool
isFullyDecrypted (PartiallyDecrypted m) = all (\i -> member i m) [0..7]
isFullyDecrypted (PartiallyDecrypted m) = all (\i -> member i m) [0..7]