X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDsMeta.hs;h=6cc1eee313145703ab59edbd4ac1d6983eea3738;hb=27241cd4c3ae6d07b91d955acef295e3da1ecc11;hp=8bb71334b096769f9d448999c6b3c92b3034ef75;hpb=5664dcaca1117ac0ecf9188406e8539fc7f7fe78;p=ghc-hetmet.git

diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs
index 8bb7133..6cc1eee 100644
--- a/compiler/deSugar/DsMeta.hs
+++ b/compiler/deSugar/DsMeta.hs
@@ -53,6 +53,7 @@ import TcType
 import TyCon
 import TysWiredIn
 import CoreSyn
+import MkCore
 import CoreUtils
 import SrcLoc
 import Unique
@@ -1303,6 +1304,7 @@ repOverloadedLiteral (OverLit { ol_val = val})
 	-- the smart constructor 'TH.Syntax.rationalL' uses it in its type,
 	-- and rationalL is sucked in when any TH stuff is used
 
+mk_lit :: OverLitVal -> DsM HsLit
 mk_lit (HsIntegral i)   = mk_integer  i
 mk_lit (HsFractional f) = mk_rational f
 mk_lit (HsIsString s)   = mk_string   s