module TrailingWhitespace.Foo where

-- | A failing example
--
-- >>> putStrLn "foo   "
-- foo
test :: a
test :: forall a. a
test = a
forall a. HasCallStack => a
undefined