diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-13 00:29:25 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-13 00:29:25 -0400 |
| commit | a3913f52e52777b18bd8e50ff593a4f4085e8b93 (patch) | |
| tree | 6aaf6258269867ded2d0a669e85ae3b9cb490fae | |
| parent | ea55609e54095b1abcc53b6c750cfec8e6ced211 (diff) | |
change to newtype
| -rw-r--r-- | Assistant/Pairing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |