Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

- Translation Tree successfully tested.

  • Loading branch information...
commit 78baf848d9807adab3373654d8f2dd0978316428 1 parent 3f1c380
@graninas authored
View
8 Amoeba/GameLogic/Language/Translating/Actions.hs
@@ -42,8 +42,8 @@ getWorldCells props = do
setupWorld rules (World name props) = do
log $ "Setting World: " ++ name ++ "."
translate rules props
+setupWorld _ t = left $ "setupWorld: World expected but got " ++ show t
-
-setWidth = undefined
-setHeight = undefined
-setCells = undefined
+setWidth _ = log $ "setWidth"
+setHeight _ = log $ "setHeight"
+setCells _ = log $ "setCells"
View
5 Amoeba/GameLogic/Language/Translating/Runtime.hs
@@ -74,7 +74,4 @@ apply rules t = do
foldM_ (ctxModifier t) ctx rules
-}
-translate _ [] = return ()
-translate rules (t:ts) = do
- apply rules t
- translate rules ts
+translate rules = mapM_ (apply rules)
Please sign in to comment.
Something went wrong with that request. Please try again.