diff --git a/src/Elm/Print/Decoder.hs b/src/Elm/Print/Decoder.hs index 7f39f61..4de0374 100644 --- 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 index 9f73719..41d56af 100644 --- 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