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