From a4c899529927da701541208013ef864df8289d66 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Wed, 20 Apr 2016 17:59:55 +0200
Subject: [PATCH] GTK: formatting and comments

---
 src/HSFM/GUI/Gtk/Data.hs    | 2 +-
 src/HSFM/GUI/Gtk/Dialogs.hs | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/HSFM/GUI/Gtk/Data.hs b/src/HSFM/GUI/Gtk/Data.hs
index 37838a7..8d8bc6f 100644
--- a/src/HSFM/GUI/Gtk/Data.hs
+++ b/src/HSFM/GUI/Gtk/Data.hs
@@ -112,7 +112,7 @@ data FilePropertyGrid = MkFilePropertyGrid {
   , fpropTsEntry        :: !Entry
   , fpropModEntry       :: !Entry
   , fpropAcEntry        :: !Entry
-  , fpropFTEntry  :: !Entry
+  , fpropFTEntry        :: !Entry
   , fpropPermEntry      :: !Entry
   , fpropLDEntry        :: !Entry
 }
diff --git a/src/HSFM/GUI/Gtk/Dialogs.hs b/src/HSFM/GUI/Gtk/Dialogs.hs
index c425f1e..07f372c 100644
--- a/src/HSFM/GUI/Gtk/Dialogs.hs
+++ b/src/HSFM/GUI/Gtk/Dialogs.hs
@@ -268,7 +268,8 @@ showFilePropertyDialog [item] mygui _ = do
   entrySetText (fpropModEntry fprop') (packModTime item)
   entrySetText (fpropAcEntry fprop')  (packAccessTime item)
   entrySetText (fpropFTEntry fprop')  (packFileType item)
-  entrySetText (fpropPermEntry fprop') (tail $ packPermissions item)
+  entrySetText (fpropPermEntry fprop')
+               (tail $ packPermissions item) -- throw away the filetype part
   case packLinkDestination item of
     (Just dest) -> do
       widgetSetSensitive (fpropLDEntry fprop') True