whitespace fixes

Assistant/Alert.hs

@@ -71,7 +71,7 @@ type AlertMap = M.Map AlertId Alert
 
 {- Higher AlertId indicates a more recent alert. -}
 newtype AlertId = AlertId Integer
-        deriving (Read, Show, Eq, Ord)
+	deriving (Read, Show, Eq, Ord)
 
 firstAlertId :: AlertId
 firstAlertId = AlertId 0
@@ -247,7 +247,7 @@ syncAlert rs = baseActivityAlert
 		[Tensed "Syncing" "Synced", "with", showRemotes rs]
 	, alertData = []
 	, alertPriority = Low
-        }
+	}
 
 scanAlert :: [Remote] -> Alert
 scanAlert rs = baseActivityAlert

Assistant/Pushes.hs

@@ -33,7 +33,7 @@ changeFailedPushMap a = do
 	v <- getAssistant failedPushMap
 	liftIO $ atomically $ store v . a . fromMaybe M.empty =<< tryTakeTMVar v
   where
- 	{- tryTakeTMVar empties the TMVar; refill it only if
+	{- tryTakeTMVar empties the TMVar; refill it only if
 	 - the modified map is not itself empty -}
 	store v m
 		| m == M.empty = noop

Assistant/Threads/TransferWatcher.hs

@@ -47,7 +47,7 @@ type Handler = FilePath -> Assistant ()
  -}
 runHandler :: Handler -> FilePath -> Maybe FileStatus -> Assistant ()
 runHandler handler file _filestatus =
-        either (liftIO . print) (const noop) =<< tryIO <~> handler file
+	either (liftIO . print) (const noop) =<< tryIO <~> handler file
 
 {- Called when there's an error with inotify. -}
 onErr :: Handler
@@ -97,8 +97,8 @@ onDel file = case parseTransferFile file of
 		finished <- asIO2 finishedTransfer
 		void $ liftIO $ forkIO $ do
 			{- XXX race workaround delay. The location
- 			 - log needs to be updated before finishedTransfer
- 			 - runs. -}
+			 - log needs to be updated before finishedTransfer
+			 - runs. -}
 			threadDelay 10000000 -- 10 seconds
 			finished t minfo
 

Assistant/Threads/XMPPClient.hs

@@ -55,7 +55,7 @@ xmppClient urlrenderer d = do
 	inAssistant = liftIO . liftAssistant
 
 	{- When the client exits, it's restarted;
- 	 - if it keeps failing, back off to wait 5 minutes before
+	 - if it keeps failing, back off to wait 5 minutes before
 	 - trying it again. -}
 	retry client starttime = do
 		e <- client

Assistant/WebApp/Configurators/Pairing.hs

@@ -233,8 +233,8 @@ promptSecret msg cont = pairPage $ do
 	((result, form), enctype) <- lift $
 		runFormGet $ renderBootstrap $
 			InputSecret <$> aopt textField "Secret phrase" Nothing
-        case result of
-                FormSuccess v -> do
+	case result of
+		FormSuccess v -> do
 			let rawsecret = fromMaybe "" $ secretText v
 			let secret = toSecret rawsecret
 			case msg of
@@ -247,7 +247,7 @@ promptSecret msg cont = pairPage $ do
 						then cont rawsecret secret
 						else showform form enctype $ Just
 							"That's not the right secret phrase."
-                _ -> showform form enctype Nothing
+		_ -> showform form enctype Nothing
   where
 	showform form enctype mproblem = do
 		let start = isNothing msg

Assistant/WebApp/Types.hs

@@ -46,7 +46,7 @@ instance Yesod WebApp where
 	isAuthorized _ _ = checkAuthToken secretToken
 
 	{- Add the auth token to every url generated, except static subsite
-         - urls (which can show up in Permission Denied pages). -}
+	 - urls (which can show up in Permission Denied pages). -}
 	joinPath = insertAuthToken secretToken excludeStatic
 	  where
 		excludeStatic [] = True
@@ -90,45 +90,45 @@ data RepoListNotificationId = RepoListNotificationId NotificationId RepoSelector
 	deriving (Read, Show, Eq)
 
 instance PathPiece SshData where
-    toPathPiece = pack . show
-    fromPathPiece = readish . unpack
+	toPathPiece = pack . show
+	fromPathPiece = readish . unpack
 
 instance PathPiece NotificationId where
-    toPathPiece = pack . show
-    fromPathPiece = readish . unpack
+	toPathPiece = pack . show
+	fromPathPiece = readish . unpack
 
 instance PathPiece AlertId where
-    toPathPiece = pack . show
-    fromPathPiece = readish . unpack
+	toPathPiece = pack . show
+	fromPathPiece = readish . unpack
 
 instance PathPiece Transfer where
-    toPathPiece = pack . show
-    fromPathPiece = readish . unpack
+	toPathPiece = pack . show
+	fromPathPiece = readish . unpack
 
 instance PathPiece PairMsg where
-    toPathPiece = pack . show
-    fromPathPiece = readish . unpack
+	toPathPiece = pack . show
+	fromPathPiece = readish . unpack
 
 instance PathPiece SecretReminder where
-    toPathPiece = pack . show
-    fromPathPiece = readish . unpack
+	toPathPiece = pack . show
+	fromPathPiece = readish . unpack
 
 instance PathPiece UUID where
-    toPathPiece = pack . show
-    fromPathPiece = readish . unpack
+	toPathPiece = pack . show
+	fromPathPiece = readish . unpack
 
 instance PathPiece BuddyKey where
-    toPathPiece = pack . show
-    fromPathPiece = readish . unpack
+	toPathPiece = pack . show
+	fromPathPiece = readish . unpack
 
 instance PathPiece PairKey where
-    toPathPiece = pack . show
-    fromPathPiece = readish . unpack
+	toPathPiece = pack . show
+	fromPathPiece = readish . unpack
 
 instance PathPiece RepoListNotificationId where
-    toPathPiece = pack . show
-    fromPathPiece = readish . unpack
+	toPathPiece = pack . show
+	fromPathPiece = readish . unpack
 
 instance PathPiece RepoSelector where
-    toPathPiece = pack . show
-    fromPathPiece = readish . unpack
+	toPathPiece = pack . show
+	fromPathPiece = readish . unpack