summaryrefslogtreecommitdiff
path: root/Types
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-10-09 15:09:26 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-10-09 15:09:26 -0400
commitadb4603fbf69d8638d925627e0c85b473a3fef05 (patch)
tree789d7d7a1075d6d947143f391eca86a58f1f46ea /Types
parenta26b7127d4cc8b2a5e15ef662ab2793dbf9e7919 (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.hs8
-rw-r--r--Types/ScheduledActivity.hs2
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. -}