Update whitespace in test command list

1 files changed, 59 insertions, 59 deletions

diff --git a/main/Test.hs b/main/Test.hs
index 0dee8aa..ac76494 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -263,65 +263,65 @@ instance MonadHead LocalState CommandM where
 
 type Command = CommandM ()
 
-commands :: [(Text, Command)]
-commands = map (T.pack *** id)
-    [ ("store", cmdStore)
-    , ("load", cmdLoad)
-    , ("stored-generation", cmdStoredGeneration)
-    , ("stored-roots", cmdStoredRoots)
-    , ("stored-set-add", cmdStoredSetAdd)
-    , ("stored-set-list", cmdStoredSetList)
-    , ("head-create", cmdHeadCreate)
-    , ("head-replace", cmdHeadReplace)
-    , ("head-watch", cmdHeadWatch)
-    , ("head-unwatch", cmdHeadUnwatch)
-    , ("create-identity", cmdCreateIdentity)
-    , ("identity-info", cmdIdentityInfo)
-    , ("start-server", cmdStartServer)
-    , ("stop-server", cmdStopServer)
-    , ("peer-add", cmdPeerAdd)
-    , ("peer-drop", cmdPeerDrop)
-    , ("peer-list", cmdPeerList)
-    , ("test-message-send", cmdTestMessageSend)
-    , ("test-stream-open", cmdTestStreamOpen)
-    , ("test-stream-close", cmdTestStreamClose)
-    , ("test-stream-send", cmdTestStreamSend)
-    , ("local-state-get", cmdLocalStateGet)
-    , ("local-state-replace", cmdLocalStateReplace)
-    , ("local-state-wait", cmdLocalStateWait)
-    , ("shared-state-get", cmdSharedStateGet)
-    , ("shared-state-wait", cmdSharedStateWait)
-    , ("watch-local-identity", cmdWatchLocalIdentity)
-    , ("watch-shared-identity", cmdWatchSharedIdentity)
-    , ("update-local-identity", cmdUpdateLocalIdentity)
-    , ("update-shared-identity", cmdUpdateSharedIdentity)
-    , ("attach-to", cmdAttachTo)
-    , ("attach-accept", cmdAttachAccept)
-    , ("attach-reject", cmdAttachReject)
-    , ("contact-request", cmdContactRequest)
-    , ("contact-accept", cmdContactAccept)
-    , ("contact-reject", cmdContactReject)
-    , ("contact-list", cmdContactList)
-    , ("contact-set-name", cmdContactSetName)
-    , ("dm-send-peer", cmdDmSendPeer)
-    , ("dm-send-contact", cmdDmSendContact)
-    , ("dm-send-identity", cmdDmSendIdentity)
-    , ("dm-list-peer", cmdDmListPeer)
-    , ("dm-list-contact", cmdDmListContact)
-    , ("chatroom-create", cmdChatroomCreate)
-    , ("chatroom-delete", cmdChatroomDelete)
-    , ("chatroom-list-local", cmdChatroomListLocal)
-    , ("chatroom-watch-local", cmdChatroomWatchLocal)
-    , ("chatroom-set-name", cmdChatroomSetName)
-    , ("chatroom-subscribe", cmdChatroomSubscribe)
-    , ("chatroom-unsubscribe", cmdChatroomUnsubscribe)
-    , ("chatroom-members", cmdChatroomMembers)
-    , ("chatroom-join", cmdChatroomJoin)
-    , ("chatroom-join-as", cmdChatroomJoinAs)
-    , ("chatroom-leave", cmdChatroomLeave)
-    , ("chatroom-message-send", cmdChatroomMessageSend)
-    , ("discovery-connect", cmdDiscoveryConnect)
-    , ("discovery-tunnel", cmdDiscoveryTunnel)
+commands :: [ ( Text, Command ) ]
+commands =
+    [ ( "store", cmdStore )
+    , ( "load", cmdLoad )
+    , ( "stored-generation", cmdStoredGeneration )
+    , ( "stored-roots", cmdStoredRoots )
+    , ( "stored-set-add", cmdStoredSetAdd )
+    , ( "stored-set-list", cmdStoredSetList )
+    , ( "head-create", cmdHeadCreate )
+    , ( "head-replace", cmdHeadReplace )
+    , ( "head-watch", cmdHeadWatch )
+    , ( "head-unwatch", cmdHeadUnwatch )
+    , ( "create-identity", cmdCreateIdentity )
+    , ( "identity-info", cmdIdentityInfo )
+    , ( "start-server", cmdStartServer )
+    , ( "stop-server", cmdStopServer )
+    , ( "peer-add", cmdPeerAdd )
+    , ( "peer-drop", cmdPeerDrop )
+    , ( "peer-list", cmdPeerList )
+    , ( "test-message-send", cmdTestMessageSend )
+    , ( "test-stream-open", cmdTestStreamOpen )
+    , ( "test-stream-close", cmdTestStreamClose )
+    , ( "test-stream-send", cmdTestStreamSend )
+    , ( "local-state-get", cmdLocalStateGet )
+    , ( "local-state-replace", cmdLocalStateReplace )
+    , ( "local-state-wait", cmdLocalStateWait )
+    , ( "shared-state-get", cmdSharedStateGet )
+    , ( "shared-state-wait", cmdSharedStateWait )
+    , ( "watch-local-identity", cmdWatchLocalIdentity )
+    , ( "watch-shared-identity", cmdWatchSharedIdentity )
+    , ( "update-local-identity", cmdUpdateLocalIdentity )
+    , ( "update-shared-identity", cmdUpdateSharedIdentity )
+    , ( "attach-to", cmdAttachTo )
+    , ( "attach-accept", cmdAttachAccept )
+    , ( "attach-reject", cmdAttachReject )
+    , ( "contact-request", cmdContactRequest )
+    , ( "contact-accept", cmdContactAccept )
+    , ( "contact-reject", cmdContactReject )
+    , ( "contact-list", cmdContactList )
+    , ( "contact-set-name", cmdContactSetName )
+    , ( "dm-send-peer", cmdDmSendPeer )
+    , ( "dm-send-contact", cmdDmSendContact )
+    , ( "dm-send-identity", cmdDmSendIdentity )
+    , ( "dm-list-peer", cmdDmListPeer )
+    , ( "dm-list-contact", cmdDmListContact )
+    , ( "chatroom-create", cmdChatroomCreate )
+    , ( "chatroom-delete", cmdChatroomDelete )
+    , ( "chatroom-list-local", cmdChatroomListLocal )
+    , ( "chatroom-watch-local", cmdChatroomWatchLocal )
+    , ( "chatroom-set-name", cmdChatroomSetName )
+    , ( "chatroom-subscribe", cmdChatroomSubscribe )
+    , ( "chatroom-unsubscribe", cmdChatroomUnsubscribe )
+    , ( "chatroom-members", cmdChatroomMembers )
+    , ( "chatroom-join", cmdChatroomJoin )
+    , ( "chatroom-join-as", cmdChatroomJoinAs )
+    , ( "chatroom-leave", cmdChatroomLeave )
+    , ( "chatroom-message-send", cmdChatroomMessageSend )
+    , ( "discovery-connect", cmdDiscoveryConnect )
+    , ( "discovery-tunnel", cmdDiscoveryTunnel )
     ]
 
 cmdStore :: Command