Apply suggestions from code review

Holmusk · Sep 24, 2021 · 1c40d6f · 1c40d6f
1 parent 7a19d3d
commit 1c40d6f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 6 deletions.
diff --git a/src/Elm/Print/Decoder.hs b/src/Elm/Print/Decoder.hs
@@ -85,8 +85,7 @@ recordDecoderDoc ElmRecord{..} =
        else recordDecoder
   where
     isEmptyRecord :: Bool
-    isEmptyRecord =
-        null elmRecordFields
+    isEmptyRecord = null elmRecordFields
 
     emptyRecordDecoder :: Doc ann
     emptyRecordDecoder = name <+> "D.succeed {}"

diff --git a/src/Elm/Print/Encoder.hs b/src/Elm/Print/Encoder.hs
@@ -126,8 +126,7 @@ recordEncoderDoc ElmRecord{..} =
             else recordEncoder
   where
     isEmptyRecord :: Bool
-    isEmptyRecord =
-        null elmRecordFields
+    isEmptyRecord = null elmRecordFields
 
     newtypeEncoder :: Doc ann
     newtypeEncoder =
@@ -136,8 +135,7 @@ recordEncoderDoc ElmRecord{..} =
           Nothing        -> emptyRecordEncoder
 
     emptyRecordEncoder :: Doc ann
-    emptyRecordEncoder =
-        leftPart <+> "list (\\_ -> null) []"
+    emptyRecordEncoder = leftPart <+> "list (\\_ -> null) []"
 
     recordEncoder :: Doc ann
     recordEncoder = nest 4