html-test/src/Bug201.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

-- We test that leading whitespace gets properly dropped (or not!)
-- from codeblocks
module Bug201 where

-- |
-- @
-- This leading whitespace
-- should be dropped
-- @
f :: ()
f = ()

{-|
@
 But this one
 should not
@

> this should
> be dropped

@
 and so should this
 because there's a space before closing @
 @
-}
g :: ()
g = ()