trapError :: IOLocoEval () -> IOLocoEval ()
trapError action = catchError action $ (liftIO . putStrLn . show)
trapError :: IOLocoEval () -> IOLocoEval ()
trapError action = catchError action $ (liftIO . putStrLn . show)
trapError action = catchError action $ (liftIO . putStrLn . show)