Strip empty @docs but also remove empty lines 🧼

elm-format-markdown/Cheapskate/Parse.hs

@@ -237,8 +237,9 @@ processElts refmap (L _lineNumber lf : rest) =
     TextLine t | Just terms1 <- T.stripPrefix "@docs" t ->
         let
             docs = terms1 : map (cleanDoc . extractText) docLines
+            cleaned = filter ((/=) []) $ fmap (filter ((/=) "") . fmap T.strip . T.splitOn ",") docs
         in
-            singleton (ElmDocs $ filter ((/=) []) $ fmap (filter ((/=) ""). fmap T.strip . T.splitOn ",") docs) <>
+            (if null cleaned then mempty else singleton (ElmDocs cleaned)) <>
             processElts refmap rest'
         where
             (docLines, rest') = span isDocLine rest

tests/test-files/transform/Elm-0.19/RemoveEmptyElmDocsProperly.elm

@@ -0,0 +1,13 @@
+module A exposing (a)
+
+{-|
+
+@docs
+
+@docs a
+
+-}
+
+
+a =
+    1

tests/test-files/transform/Elm-0.19/RemoveEmptyElmDocsProperly.formatted.elm

@@ -0,0 +1,11 @@
+module A exposing (a)
+
+{-|
+
+@docs a
+
+-}
+
+
+a =
+    1