Merge pull request avh4#565 from mdevlamynck/pr-remove-illegal-wildca…

…rd-docs Fix avh4#454, Remove (..) from types in @docs
kutyel · Oct 8, 2018 · 479705d · 479705d
2 parents c3be615 + 52cfeae
commit 479705d
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 2 deletions.
diff --git a/src/ElmFormat/Render/Box.hs b/src/ElmFormat/Render/Box.hs
@@ -700,7 +700,18 @@ formatModuleDocs elmVersion importInfo blocks =
 
         content :: String
         content =
-            ElmFormat.Render.Markdown.formatMarkdown (fmap format . parse) blocks
+            ElmFormat.Render.Markdown.formatMarkdown (fmap format . parse) $ fmap cleanBlock blocks
+
+        cleanBlock :: Markdown.Block -> Markdown.Block
+        cleanBlock block =
+            case block of
+                Markdown.ElmDocs docs ->
+                    Markdown.ElmDocs $
+                        (fmap . fmap)
+                            (Text.replace (Text.pack "(..)") (Text.pack ""))
+                            docs
+                _ ->
+                    block
     in
         formatDocComment content
 

diff --git a/tests/test-files/transform/DocCommentAtDocs.elm b/tests/test-files/transform/DocCommentAtDocs.elm
@@ -1,11 +1,12 @@
-module DocCommentAtDocs exposing (x, y, z)
+module DocCommentAtDocs exposing (x, y, z, T(..))
 
 {-|
 
 @docs
  x,
    y,
  z
+@docs T(..)
 
 @docs a  , b  ,   c    
 @docs d

diff --git a/tests/test-files/transform/DocCommentAtDocs.formatted.elm b/tests/test-files/transform/DocCommentAtDocs.formatted.elm
@@ -2,13 +2,15 @@ module DocCommentAtDocs exposing
     ( x
     , y
     , z
+    , T(..)
     )
 
 {-|
 
 @docs x
 @docs y
 @docs z
+@docs T
 
 @docs a, b, c
 @docs d