blob: c0dc5039810614a53b92340642cd62ac74257277 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
==================== Parser ====================
module CommentsBeforeArguments where
data A = A
data B = B
f1 ::
{-| Comment before -}
()
-> () {-^ Comment after -} -> () {-^ Result after -}
f1 _ _ = ()
f2 ::
{-| Comment before -}
()
-> () {-^ Comment after -}
-> {-| Result after -}
()
f2 _ _ = ()
|