From 6c54aabc94bca7be571dafd293009d638ee8a372 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sat, 1 Sep 2018 18:26:55 +0200
Subject: [PATCH] cleaning debug output

---
 src/NPC.hs    | 1 -
 src/Object.hs | 6 +++---
 2 files changed, 3 insertions(+), 4 deletions(-)

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)
             }