removing trailing WS.

This commit is contained in:
Kazu Yamamoto 2013-11-19 10:42:47 +09:00
parent c37303a08e
commit 5097ef84e4

View File

@ -75,8 +75,8 @@ instance HasType (LHsExpr Id) where
modu = ms_mod $ pm_mod_summary $ tm_parsed_module tcm modu = ms_mod $ pm_mod_summary $ tm_parsed_module tcm
tcgEnv = fst $ tm_internals_ tcm tcgEnv = fst $ tm_internals_ tcm
rn_env = tcg_rdr_env tcgEnv rn_env = tcg_rdr_env tcgEnv
ty_env = tcg_type_env tcgEnv ty_env = tcg_type_env tcgEnv
fi_env = tcg_fam_inst_env tcgEnv fi_env = tcg_fam_inst_env tcgEnv
#else #else
instance HasType (LHsExpr Id) where instance HasType (LHsExpr Id) where
getType tcm e = do getType tcm e = do
@ -87,7 +87,7 @@ instance HasType (LHsExpr Id) where
modu = ms_mod $ pm_mod_summary $ tm_parsed_module tcm modu = ms_mod $ pm_mod_summary $ tm_parsed_module tcm
tcgEnv = fst $ tm_internals_ tcm tcgEnv = fst $ tm_internals_ tcm
rn_env = tcg_rdr_env tcgEnv rn_env = tcg_rdr_env tcgEnv
ty_env = tcg_type_env tcgEnv ty_env = tcg_type_env tcgEnv
#endif #endif
instance HasType (LPat Id) where instance HasType (LPat Id) where