removed unused code

examples/Main.hs

@@ -32,7 +32,6 @@ main = do
         let cfg = home </> ".local" </> "share" </> "wazajisho" </> "config"
 
         filesVar <- newTVarIO []
-        iconsVar <- newTVarIO []
         
         getFolderAsync fd window cfg $ \mPath -> case mPath of
           Nothing -> putStrLn "Callback: no folder selected"
@@ -42,12 +41,7 @@ main = do
             putStrLn $ "Callback: listFiles found: " ++ show fs
             atomically $ do
               writeTVar filesVar fs
-              writeTVar iconsVar (findIcons fs)
-            -- read it right back out and print
-            newIcons <- readTVarIO iconsVar
-            putStrLn $ "After write, iconsVar has: " ++ show newIcons
-        
-                    
+
 
         rootVBox <- Gtk.boxNew Gtk.OrientationVertical 6
         topHBox  <- Gtk.boxNew Gtk.OrientationHorizontal 6