aboutsummaryrefslogblamecommitdiff
path: root/html-test/src/Bug201.hs
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 = ()