@@ -1,6 +1,6 @@
1{-# LANGUAGE PatternGuards, ViewPatterns #-}
1{-# LANGUAGE PatternGuards, ViewPatterns #-}
2{-# OPTIONS_GHC -fwarn-incomplete-patterns #-}
2{-# OPTIONS_GHC -fwarn-incomplete-patterns #-}
3−module Idris.ElabTerm where
3+module Idris.Elab.Term where
5import Idris.AbsSyntax
5import Idris.AbsSyntax
6import Idris.AbsSyntaxTree
6import Idris.AbsSyntaxTree
@@ -262,9 +262,7 @@ elab ist info emode opts fn tm
262 -- normally correct to call elabE - the ones that don't are desugarings
262 -- normally correct to call elabE - the ones that don't are desugarings
263 -- typically
263 -- typically
264 elabE :: ElabCtxt -> Maybe FC -> PTerm -> ElabD ()
264 elabE :: ElabCtxt -> Maybe FC -> PTerm -> ElabD ()
265− elabE ina fc' t =
265+ elabE ina fc' t =
267− --trace ("Elaborating " ++ show t ++ " : " ++ show g) $
268 do solved <- get_recents
266 do solved <- get_recents
269 as <- get_autos
267 as <- get_autos
270 -- If any of the autos use variables which have recently been solved,
268 -- If any of the autos use variables which have recently been solved,