From 495410e89fd13029788e6a8b61130d2dd1e528bb Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Mon, 8 Feb 2021 19:43:28 -0500
Subject: [PATCH] Fix whitespace

---
 Main.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/Main.hs b/Main.hs
index 526235f..d8b7b98 100644
--- a/Main.hs
+++ b/Main.hs
@@ -1030,15 +1030,15 @@ participantJid payloads =
 
 cacheHTTP :: (Unexceptional m) => FilePath -> Text -> m (Either IOError FilePath)
 cacheHTTP jingleStore url =
-		UIO.fromIO' (userError . show) $
-		HTTP.get (encodeUtf8 url) $ \response body -> UIO.runEitherIO $
-			if HTTP.getStatusCode response == 200 then
-				fmap (fmap (\(fp,_,_,_) -> fp)) $
-				Jingle.storeChunks Nothing jingleStore
-				(escapeURIString isAlpha (textToString url))
-				(hush <$> UIO.fromIO (fromMaybe mempty <$> Streams.read body))
-			else
-				return $ Left $ userError "Response was not 200 OK"
+	UIO.fromIO' (userError . show) $
+	HTTP.get (encodeUtf8 url) $ \response body -> UIO.runEitherIO $
+		if HTTP.getStatusCode response == 200 then
+			fmap (fmap (\(fp,_,_,_) -> fp)) $
+			Jingle.storeChunks Nothing jingleStore
+			(escapeURIString isAlpha (textToString url))
+			(hush <$> UIO.fromIO (fromMaybe mempty <$> Streams.read body))
+		else
+			return $ Left $ userError "Response was not 200 OK"
 
 cacheOneOOB :: (Unexceptional m) => ([StatsD.Stat] -> m ()) -> FilePath -> Text -> XML.Element -> m (Maybe (Text, Text), XML.Element)
 cacheOneOOB pushStatsd jingleStore jingleStoreURL oob
-- 
2.38.5