From 6878a7c9e637bbbff4441a08b63f28e27c88aafe Mon Sep 17 00:00:00 2001
From: Evgeny Zemtsov <eugene.zemtsov@gmail.com>
Date: Tue, 2 Jul 2019 21:47:24 +0200
Subject: [PATCH] Formatting

---
 src/TypesGameInput.hs  | 2 +-
 src/TypesGameOutput.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/TypesGameInput.hs b/src/TypesGameInput.hs
index 9877cb4..959d687 100644
--- a/src/TypesGameInput.hs
+++ b/src/TypesGameInput.hs
@@ -11,7 +11,7 @@ import qualified TypesGame as TG
 
 messageOptions = defaultOptions
   { sumEncoding = TaggedObject
-    { tagFieldName = "method"
+    { tagFieldName      = "method"
     , contentsFieldName = "resource" }
   }
 
diff --git a/src/TypesGameOutput.hs b/src/TypesGameOutput.hs
index 65f05fa..096594c 100644
--- a/src/TypesGameOutput.hs
+++ b/src/TypesGameOutput.hs
@@ -21,7 +21,7 @@ data Message =
 instance ToJSON Message where
   toJSON = genericToJSON defaultOptions
     { sumEncoding = TaggedObject
-      { tagFieldName = "message"
+      { tagFieldName      = "message"
       , contentsFieldName = "data" }
     }
 
@@ -29,7 +29,7 @@ data Data =
     Player TG.Player
   | Cell TG.Cell
   | SessionId TG.SessionId
-  | History { moves :: [TG.Cell]
+  | History { moves   :: [TG.Cell]
             , players :: [TG.Player] }
   deriving (Generic, Show)
 instance ToJSON Data where