@@ -194,6 +194,10 @@ data IState = IState {
194 idris_callswho :: Maybe (M.Map Name [Name])
194 idris_callswho :: Maybe (M.Map Name [Name])
197+-- Required for parsers library, and therefore trifecta
198+instance Show IState where
199+ show = const "{internal state}"
197data SizeChange = Smaller | Same | Bigger | Unknown
201data SizeChange = Smaller | Same | Bigger | Unknown
198 deriving (Show, Eq)
202 deriving (Show, Eq)