From 3c8f31040f6f1bdb905d8df181dc30bca1bafbb2 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Sat, 28 May 2011 10:46:22 +0200
Subject: Type-safe identifiers in tests

---
 tests/TestSuite/Util.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests/TestSuite')

diff --git a/tests/TestSuite/Util.hs b/tests/TestSuite/Util.hs
index d82b280..50688ae 100644
--- 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
-- 
cgit v1.2.3