From 86df2a69b149c1f4ff2cb9139447f5a6faccd483 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Wed, 30 Nov 2005 15:51:43 +0000
Subject: Moved class stuff to prelude.

---
 src/Transfer/SyntaxToCore.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Transfer/SyntaxToCore.hs')

diff --git a/src/Transfer/SyntaxToCore.hs b/src/Transfer/SyntaxToCore.hs
index 1b17e4a3f..3a5bdac20 100644
--- a/src/Transfer/SyntaxToCore.hs
+++ b/src/Transfer/SyntaxToCore.hs
@@ -57,7 +57,7 @@ numberMetas = mapM f
                EMeta -> do
                         st <- get
                         put (st { nextMeta = nextMeta st + 1})
-                        return $ EVar $ Ident $ "?" ++ show (nextMeta st)
+                        return $ EVar $ Ident $ "?" ++ show (nextMeta st) -- FIXME: hack
                _ -> composOpM f t
 
 --
-- 
cgit v1.2.3