diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-05-21 11:07:08 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-05-21 11:07:08 -0400 |
| commit | 1876db50f258a1a6a67d874049e93a84d34cac32 (patch) | |
| tree | d67ad0da6329eb5329a99228a749261f2dc09a77 /CryptoTypes.hs | |
| parent | 813ff7f4b0cef294e020e50d4c6f973d1e7f35ae (diff) | |
found a few places I can use newtype
for presumably some speedups
Diffstat (limited to 'CryptoTypes.hs')
| -rw-r--r-- | CryptoTypes.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/CryptoTypes.hs b/CryptoTypes.hs index 944a9d34e..ba22c4cbe 100644 --- a/CryptoTypes.hs +++ b/CryptoTypes.hs @@ -9,11 +9,12 @@ module CryptoTypes where import Data.String.Utils -data Cipher = Cipher String -- XXX ideally, this would be a locked memory region +-- XXX ideally, this would be a locked memory region +newtype Cipher = Cipher String data EncryptedCipher = EncryptedCipher String KeyIds -data KeyIds = KeyIds [String] +newtype KeyIds = KeyIds [String] instance Show KeyIds where show (KeyIds ks) = join "," ks |