From a3913f52e52777b18bd8e50ff593a4f4085e8b93 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 13 Sep 2012 00:29:25 -0400 Subject: change to newtype --- Assistant/Pairing.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Assistant/Pairing.hs b/Assistant/Pairing.hs index 5d097ab7d..662654255 100644 --- a/Assistant/Pairing.hs +++ b/Assistant/Pairing.hs @@ -75,7 +75,7 @@ data SomeAddr = IPv4Addr HostAddress | IPv6Addr HostAddress6 {- This contains the whole secret, just lightly obfuscated to make it not - too obvious. It's only displayed in the user's web browser. -} -data SecretReminder = SecretReminder [Int] +newtype SecretReminder = SecretReminder [Int] deriving (Show, Eq, Ord, Read) toSecretReminder :: T.Text -> SecretReminder -- cgit v1.2.3