Formatting

Author: elliotdavies

src/Data/Argonaut/Decode/Class.purs

@@ -101,8 +101,12 @@ decodeJArray = maybe (Left "Value is not an Array") Right <<< toArray
 decodeJObject :: Json -> Either String (FO.Object Json)
 decodeJObject = maybe (Left "Value is not an Object") Right <<< toObject
 
+instance decodeRecord
+  :: ( GDecodeJson row list
+     , RL.RowToList row list
+     )
+  => DecodeJson (Record row) where
 
-instance decodeRecord :: (GDecodeJson row list, RL.RowToList row list) => DecodeJson (Record row) where
   decodeJson json =
     case toObject json of
       Just object -> gDecodeJson object (RLProxy :: RLProxy list)
@@ -122,13 +126,13 @@ instance gDecodeJsonCons
      , Row.Lacks field rowTail
      )
   => GDecodeJson row (RL.Cons field value tail) where
-  
+
   gDecodeJson object _ = do
     let sProxy :: SProxy field
         sProxy = SProxy
 
         fieldName = reflectSymbol sProxy
-    
+
     rest <- gDecodeJson object (RLProxy :: RLProxy tail)
 
     case FO.lookup fieldName object of
@@ -137,4 +141,4 @@ instance gDecodeJsonCons
         Right $ Record.insert sProxy val rest
 
       Nothing ->
-        Left $ "JSON was missing expected field: " <> fieldName
+        Left $ "JSON was missing expected field: " <> fieldName

src/Data/Argonaut/Encode/Class.purs

@@ -76,9 +76,13 @@ instance encodeMap :: (Ord a, EncodeJson a, EncodeJson b) => EncodeJson (M.Map a
 instance encodeVoid :: EncodeJson Void where
   encodeJson = absurd
 
-instance encodeRecord :: (GEncodeJson row list, RL.RowToList row list) => EncodeJson (Record row) where
-  encodeJson rec = fromObject $ gEncodeJson rec (RLProxy :: RLProxy list)
+instance encodeRecord
+  :: ( GEncodeJson row list
+     , RL.RowToList row list
+     )
+  => EncodeJson (Record row) where
 
+  encodeJson rec = fromObject $ gEncodeJson rec (RLProxy :: RLProxy list)
 
 class GEncodeJson (row :: # Type) (list :: RL.RowList) where
   gEncodeJson :: Record row -> RLProxy list -> FO.Object Json
@@ -93,7 +97,7 @@ instance gEncodeJsonCons
      , Row.Cons field value tail' row
      )
   => GEncodeJson row (RL.Cons field value tail) where
-  
+
   gEncodeJson row _ =
     let
       sProxy :: SProxy field
@@ -102,4 +106,4 @@ instance gEncodeJsonCons
       FO.insert
         (reflectSymbol sProxy)
         (encodeJson $ Record.get sProxy row)
-        (gEncodeJson row $ RLProxy :: RLProxy tail)
+        (gEncodeJson row $ RLProxy :: RLProxy tail)