tests pass

kmels · Jul 25, 2013 · ec4c610 · ec4c610
1 parent b936c2e
commit ec4c610
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/test/Language/Core/TestTy.hs b/test/Language/Core/TestTy.hs
@@ -98,9 +98,9 @@ getDefTypes filepath = do
   return $ concatMap extractTypes vdefs
   where
     extractTypes :: Vdefg -> [(Id,Ty)] 
-    extractTypes (Nonrec vdef@(Vdef(qvar, ty, _))) = [(qualifiedVar qvar, ty)]
+    extractTypes (Nonrec vdef@(Vdef(qvar, ty, _))) = [(zDecodeQualified qvar, ty)]
     extractTypes (Rec []) = []
-    extractTypes (Rec (vdef@(Vdef(qvar, ty, _)):vs)) = [(qualifiedVar qvar, ty)] ++ extractTypes (Rec vs)
+    extractTypes (Rec (vdef@(Vdef(qvar, ty, _)):vs)) = [(zDecodeQualified qvar, ty)] ++ extractTypes (Rec vs)
 
 intTy :: Ty
 intTy = mkTcon "ghczmprim" ["GHC"] "Types" "Int"