mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

change to newtype

Browse source
This commit is contained in:
Joey Hess 2012-09-13 00:29:25 -04:00
parent ea55609e54
commit a3913f52e5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Pairing.hs
View file

@ -75,7 +75,7 @@ data SomeAddr = IPv4Addr HostAddress | IPv6Addr HostAddress6
{- This contains the whole secret, just lightly obfuscated to make it not {- This contains the whole secret, just lightly obfuscated to make it not
- too obvious. It's only displayed in the user's web browser. -} - 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) deriving (Show, Eq, Ord, Read)
toSecretReminder :: T.Text -> SecretReminder toSecretReminder :: T.Text -> SecretReminder