diff --git a/src/NPC.hs b/src/NPC.hs
index e2e8e3c..9937245 100644
--- a/src/NPC.hs
+++ b/src/NPC.hs
@@ -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
diff --git a/src/Object.hs b/src/Object.hs
index d452c45..31d258e 100644
--- a/src/Object.hs
+++ b/src/Object.hs
@@ -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)
             }