whitespace fixes

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