Formatting

ezemtsov · Jul 2, 2019 · 6878a7c · 6878a7c
1 parent dacd3d4
commit 6878a7c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -21,15 +21,15 @@ data Message =
 instance ToJSON Message where
   toJSON = genericToJSON defaultOptions
     { sumEncoding = TaggedObject
-      { tagFieldName = "message"
+      { tagFieldName      = "message"
       , contentsFieldName = "data" }
     }
 
 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