cleaning debug output

This commit is contained in:
nek0 2018-09-01 18:26:55 +02:00
parent c0b3acd647
commit 6c54aabc94
2 changed files with 3 additions and 4 deletions

View file

@ -144,7 +144,6 @@ updateNPCs imgmat rp dt = do
}
})
objects -> do
liftIO $ logIO Debug ("applicable objects: " ++ show objects)
rind <- liftIO $ randomRIO (0, length objects - 1)
npcent <- queryEnt
let (oent, _, _) = objects !! rind

View file

@ -20,7 +20,7 @@ instance ObjectAction ObjType ObjState where
mtime <- queryMaybe objStateTime
case mtime of
Nothing -> do
liftIO $ logIO Debug ("Copier " ++ show ent ++ ": copying!")
liftIO $ logIO Verbose ("Copier " ++ show ent ++ ": copying!")
return unchanged
{ objStateTime = Set (actionTime t s)
, objState = Set "copying"
@ -45,7 +45,7 @@ instance ObjectAction ObjType ObjState where
mtime <- queryMaybe objStateTime
case mtime of
Nothing -> do
liftIO $ logIO Debug ("Computer " ++ show ent ++ ": on!")
liftIO $ logIO Verbose ("Computer " ++ show ent ++ ": on!")
let dur = actionTime t s
return unchanged
{ objStateTime = Set dur
@ -80,7 +80,7 @@ instance ObjectAction ObjType ObjState where
mtime <- queryMaybe objStateTime
case mtime of
Nothing -> do
liftIO $ logIO Debug ("Computer " ++ show ent ++ ": hacking!")
liftIO $ logIO Verbose ("Computer " ++ show ent ++ ": hacking!")
return unchanged
{ objStateTime = Set (actionTime t s)
}