Fix avh4#454, Remove (..) form types in @docs

mdevlamynck · Oct 7, 2018 · faee36d · faee36d
1 parent 188d397
commit faee36d
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