Example is roughly taken from stack new test haskeleton
Example.hs
-- | An example module.
module Example (main) where
-- | An example function.
main :: IO ()
main = return ()
foo :: IO ()
foo = do
_ <- async $ return ()
return ()
-- | An example module.
module Example (main) where
-- | An example function.
import Control.Concurrent.Async
main :: IO ()
main = return ()
foo :: IO ()
foo = do
_ <- async $ return ()
return ()
Expected:
-- | An example module.
module Example (main) where
import Control.Concurrent.Async
-- | An example function.
main :: IO ()
main = return ()
foo :: IO ()
foo = do
_ <- async $ return ()
return ()
Example is roughly taken from
stack new test haskeleton
Example.hsOutput:
Expected: