Type-safe identifiers in tests
commit3c8f31040f6f1bdb905d8df181dc30bca1bafbb2
authorJasper Van der Jeugt <jaspervdj@gmail.com>
dateSat 28 May 2011, 10:46 (15 years ago)
parent01a8ab2
tests/TestSuite/Util.hs+2−2
@@ -33,9 +33,9 @@ makeStoreTest = makeStore "_store"
3333-- | Testing for 'runCompilerJob'
3434--
3535runCompilerJobTest :: Compiler () a
36− -> Identifier
36+ -> Identifier ()
3737 -> ResourceProvider
38− -> [Identifier]
38+ -> [Identifier ()]
3939 -> IO a
4040runCompilerJobTest compiler id' provider uni = do
4141 store <- makeStoreTest