improve layout

1 files changed, 7 insertions, 5 deletions

diff --git a/BackupLog.hs b/BackupLog.hs
index 8e48bcd..802528f 100644
--- a/BackupLog.hs
+++ b/BackupLog.hs
@@ -37,11 +37,13 @@ instance FromJSON BackupLog
 -- Including the password entropy does let an attacker avoid trying
 -- weak passwords and go right to passwords that are strong enough, but
 -- this should only half the password crack time at worst.
-data BackupEvent = BackupSkipped SecretKeySource | BackupMade
-	{ backupServers :: [ServerName]
-	, backupSecretKeySource :: SecretKeySource
-	, backupPasswordEntropy :: Int
-	}
+data BackupEvent 
+	= BackupSkipped SecretKeySource 
+	| BackupMade
+		{ backupServers :: [ServerName]
+		, backupSecretKeySource :: SecretKeySource
+		, backupPasswordEntropy :: Int
+		}
 	deriving (Show, Generic)
 
 instance ToJSON BackupEvent