Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Removed trace statements

  • Loading branch information...
commit 7701c507a50568c0469efe5d6ce0ef5fed4433e8 1 parent 9776bff
James Sanders authored
Showing with 5 additions and 5 deletions.
  1. +3 −3 src/Text/Twine/Interpreter.hs
  2. +2 −2 src/Text/Twine/Parser.hs
6 src/Text/Twine/Interpreter.hs
View
@@ -119,7 +119,7 @@ eval (Loop e as bls) = do
runLoop (TwineObject x) = do
it <- lift2 $ getIterable x
- trace (show it) $ runLoop (TwineList it)
+ runLoop (TwineList it)
runLoop x = error $ "Not iterable: " ++ show x
@@ -127,7 +127,7 @@ eval (Loop e as bls) = do
g <- get
cx <- getCX
s <- lift2 $ makeString v
- trace (show as) $ trace s $ lift2 $ runEval' bls (bind (M.fromList [(as,v)]) <+> cx) (getContextMacros g)
+ lift2 $ runEval' bls (bind (M.fromList [(as,v)]) <+> cx) (getContextMacros g)
eval x = error $ "Cannot eval: '" ++ (show x) ++ "'"
@@ -139,7 +139,7 @@ evalExpr :: (Monad m, Functor m) => Expr -> Stack m (TwineElement m)
evalExpr (Func n a) = do
cx <- getCX
ll <- lift2 $ doLookup n cx
- trace (show ll) $ case ll of
+ case ll of
Just (TwineFunction f) -> do
args <- mapM evalExpr a
lift2 $ f args
4 src/Text/Twine/Parser.hs
View
@@ -15,8 +15,8 @@ token t = do
return t
template = do
- pos <- getPosition
- trace (show pos) $
+ --pos <- getPosition
+ --trace (show pos) $
try altMacro <|> templateEntities <|> textBlock
---template = try altMacro <|> templateEntities <|> textBlock
template' = templateEntities <|> textBlock
Please sign in to comment.
Something went wrong with that request. Please try again.