diff options
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Crypto.hs | 8 | ||||
| -rw-r--r-- | Types/ScheduledActivity.hs | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/Types/Crypto.hs b/Types/Crypto.hs index 1a9a7774a..48d03ce12 100644 --- a/Types/Crypto.hs +++ b/Types/Crypto.hs @@ -59,10 +59,10 @@ readMac "HMACSHA512" = Just HmacSha512 readMac _ = Nothing calcMac - :: Mac -- ^ MAC - -> L.ByteString -- ^ secret key - -> L.ByteString -- ^ message - -> String -- ^ MAC'ed message, in hexadecimals + :: Mac -- ^ MAC + -> L.ByteString -- ^ secret key + -> L.ByteString -- ^ message + -> String -- ^ MAC'ed message, in hexadecimal calcMac mac = case mac of HmacSha1 -> showDigest $* hmacSha1 HmacSha224 -> showDigest $* hmacSha224 diff --git a/Types/ScheduledActivity.hs b/Types/ScheduledActivity.hs index b683409ce..5cdbe29e8 100644 --- a/Types/ScheduledActivity.hs +++ b/Types/ScheduledActivity.hs @@ -17,7 +17,7 @@ import Data.Either data ScheduledActivity = ScheduledSelfFsck Schedule Duration | ScheduledRemoteFsck UUID Schedule Duration - deriving (Eq, Read, Show, Ord) + deriving (Eq, Read, Show, Ord) {- Activities that run on a remote, within a time window, so - should be run when the remote gets connected. -} |