diff options
author | Joey Hess <joey@kitenet.net> | 2014-10-09 15:09:26 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-10-09 15:09:26 -0400 |
commit | adb4603fbf69d8638d925627e0c85b473a3fef05 (patch) | |
tree | 789d7d7a1075d6d947143f391eca86a58f1f46ea /Types | |
parent | a26b7127d4cc8b2a5e15ef662ab2793dbf9e7919 (diff) |
indent with tabs not spaces
Found these with:
git grep "^ " $(find -type f -name \*.hs) |grep -v ': where'
Unfortunately there is some inline hamlet that cannot use tabs for
indentation.
Also, Assistant/WebApp/Bootstrap3.hs is a copy of a module and so I'm
leaving it as-is.
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. -} |