Type-safe identifiers in tests

2011-05-28 10:46:22 +02:00 · 2011-05-28 10:46:22 +02:00 · 3c8f31040f
commit 3c8f31040f
parent 01a8ab20d6
1 changed files with 2 additions and 2 deletions
--- a/tests/TestSuite/Util.hs
+++ b/tests/TestSuite/Util.hs
@ -33,9 +33,9 @@ makeStoreTest = makeStore "_store"
 -- | Testing for 'runCompilerJob'
 --
 runCompilerJobTest :: Compiler () a
-                   -> Identifier
+                   -> Identifier ()
                   -> ResourceProvider
-                   -> [Identifier]
+                   -> [Identifier ()]
                   -> IO a
 runCompilerJobTest compiler id' provider uni = do
    store <- makeStoreTest