Skip to content

Commit 1664131

Browse files
committed
Add empty comment test file
1 parent 80cae16 commit 1664131

File tree

1 file changed

+74
-0
lines changed

1 file changed

+74
-0
lines changed

tests/empty-comment-test.hs

+74
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,74 @@
1+
-- |
2+
haddockAboveSingle = 1
3+
4+
haddockBelowSingle = 1
5+
-- ^
6+
7+
-- |
8+
--
9+
haddockAboveSingles = 1
10+
11+
-- |
12+
-- >>>
13+
haddockAboveDoctest = 1
14+
15+
-- |
16+
--
17+
--
18+
-- foo
19+
haddockAboveIntoNonEmpty = 1
20+
21+
haddockBelowIntoNonEmpty = 1
22+
-- ^
23+
--
24+
--
25+
-- foo
26+
27+
{--}
28+
commentMultiEmpty = 1
29+
30+
{- -}
31+
commentMultiEmptySpace = 1
32+
33+
{-
34+
35+
-}
36+
commentMultiEmptyLines = 1
37+
38+
{- |-}
39+
haddockAboveMultiEmpty = 1
40+
41+
{- | -}
42+
haddockAboveMultiEmptySpace = 1
43+
44+
{- |
45+
46+
-}
47+
haddockAboveMultiEmptyLines = 1
48+
49+
haddockBelowMultiEmpty = 1
50+
{- ^-}
51+
52+
haddockBelowMultiEmptySpace = 1
53+
{- ^-}
54+
55+
haddockBelowMultiEmptyLines = 1
56+
{- ^
57+
58+
-}
59+
60+
data HaddockSingle = HaddockSingle
61+
{ haddockFieldEmptyBelow :: Int
62+
-- ^
63+
-- |
64+
, haddockFieldAboveEmpty :: Int
65+
, haddockFieldEmptyAfter :: Int -- ^
66+
}
67+
68+
data HaddockMulti = HaddockMulti
69+
{ haddockFieldEmptyBelow :: Int
70+
{- ^-}
71+
{- |-}
72+
, haddockFieldAboveEmpty :: Int
73+
, haddockFieldEmptyAfter :: Int {- ^-}
74+
}

0 commit comments

Comments
 (0)