X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcGRHSs.lhs;h=4a532ae00960486b48867aa44a9f4a8eb5ce741f;hb=e7498a3ee1d0484d02a9e86633cc179c76ebf36e;hp=edc2869829007e8af3addf0fbbcfe8c582e54b73;hpb=dabfa71f33eabc5a2d10959728f772aa016f1c84;p=ghc-hetmet.git diff --git a/ghc/compiler/typecheck/TcGRHSs.lhs b/ghc/compiler/typecheck/TcGRHSs.lhs index edc2869..4a532ae 100644 --- a/ghc/compiler/typecheck/TcGRHSs.lhs +++ b/ghc/compiler/typecheck/TcGRHSs.lhs @@ -4,10 +4,12 @@ \section[TcGRHSs]{Typecheck guarded right-hand-sides} \begin{code} +#include "HsVersions.h" + module TcGRHSs ( tcGRHSsAndBinds ) where -import Ubiq{-uitous-} -import TcLoop -- for paranoia checking +IMP_Ubiq(){-uitous-} +IMPORT_DELOOPER(TcLoop) -- for paranoia checking import HsSyn ( GRHSsAndBinds(..), GRHS(..), HsExpr, HsBinds(..), InPat, OutPat, Bind, Sig, Fake )