blob: caa92d958309df5b868f580d7018491aa4473046 (
plain) (
blame)
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
29
|
{-# LANGUAGE Haskell2010 #-}
-- 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 = ()
|
