LIB/GTK: use more recent library versions

src/HSFM/GUI/Glib/GlibString.hs

@@ -24,13 +24,9 @@ module HSFM.GUI.Glib.GlibString where
 
 
 import qualified Data.ByteString as BS
-import Data.Encoding
+import Data.ByteString.UTF8
   (
-    decodeStrictByteString
-  )
-import Data.Encoding.UTF8
-  (
-    UTF8(..)
+    toString
   )
 import Data.Word8
   (
@@ -67,9 +63,9 @@ instance GlibString BS.ByteString where
         BS.packCStringLen (s, fromIntegral len)
     maybePeekUTFString = maybePeek peekUTFString
     peekUTFStringLen = BS.packCStringLen
-    newUTFString = newUTFString . decodeStrictByteString UTF8
-    newUTFStringLen = newUTFStringLen . decodeStrictByteString UTF8
-    genUTFOfs = genUTFOfs . decodeStrictByteString UTF8
+    newUTFString = newUTFString . toString
+    newUTFStringLen = newUTFStringLen . toString
+    genUTFOfs = genUTFOfs . toString
     stringLength = BS.length
     unPrintf s = BS.intercalate "%%" (BS.split _percent s)
 

src/HSFM/GUI/Gtk/Data.hs

@@ -32,7 +32,7 @@ import Control.Concurrent.STM
 import Graphics.UI.Gtk
 import HSFM.FileSystem.FileOperations
 import HSFM.FileSystem.FileType
-import System.INotify
+import System.INotify.ByteString
   (
     INotify
   )

src/HSFM/GUI/Gtk/MyView.hs

@@ -64,7 +64,7 @@ import HSFM.GUI.Gtk.Icons
 import HSFM.GUI.Gtk.Utils
 import HSFM.Utils.IO
 import Prelude hiding(readFile)
-import System.INotify
+import System.INotify.ByteString
   (
     addWatch
   , initINotify