@qnikst,
data Foo = Foo
!a — ^ komentar
!b — ^ eto Be

@segfault, $ haddock 2.hs
Haddock coverage:

2.hs:5:12: parse error on input `!'

@segfault, можно data Foo = Foo { fooa :: !a — ^ kommentar
, foob :: !b — ^ eto Be
}

@qnikst, дай им имена и комментируй :)

@qnikst, а без бангов парсит ?

@segfault, енмип тоже не будет

@max630, не спортивно ^)

@qnikst, пулреквест — самый спортивный метод )

@segfault, если бы мне было нечего делать, то да