More helpful example in Test.hs