I have a following data type:
data CheckState = CheckState { envs :: [Env] , curPos :: SrcSpan , inLoop