blob: bf6cb9a9934e343bd8cce05b3f5cc671cbe929e7 (
plain) (
tree)
|
|
-- 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 = ()
|