diff --git a/src/HSFM/FileSystem/FileType.hs b/src/HSFM/FileSystem/FileType.hs
index 3a910ae..2c67d72 100644
--- a/src/HSFM/FileSystem/FileType.hs
+++ b/src/HSFM/FileSystem/FileType.hs
@@ -97,58 +97,58 @@ import System.Posix.Types
 -- can be converted to a String with 'show'.
 data File a =
     Failed {
-    path :: Path Abs
+    path :: !(Path Abs)
   , err  :: IOError
   }
   | Dir {
-    path :: Path Abs
+    path :: !(Path Abs)
   , fvar :: a
   }
   | RegFile {
-    path :: Path Abs
+    path :: !(Path Abs)
   , fvar :: a
   }
   | SymLink {
-    path    :: Path Abs
+    path    :: !(Path Abs)
   , fvar    :: a
   , sdest   :: File a  -- ^ symlink madness,
                        --   we need to know where it points to
-  , rawdest :: ByteString
+  , rawdest :: !ByteString
   }
   | BlockDev {
-    path :: Path Abs
+    path :: !(Path Abs)
   , fvar :: a
   }
   | CharDev {
-    path :: Path Abs
+    path :: !(Path Abs)
   , fvar :: a
   }
   | NamedPipe {
-    path :: Path Abs
+    path :: !(Path Abs)
   , fvar :: a
   }
   | Socket {
-    path :: Path Abs
+    path :: !(Path Abs)
   , fvar :: a
   } deriving (Show, Eq)
 
 
 -- |Low-level file information.
 data FileInfo = FileInfo {
-    deviceID :: DeviceID
-  , fileID :: FileID
-  , fileMode :: FileMode
-  , linkCount :: LinkCount
-  , fileOwner :: UserID
-  , fileGroup :: GroupID
-  , specialDeviceID :: DeviceID
-  , fileSize :: FileOffset
-  , accessTime :: EpochTime
-  , modificationTime :: EpochTime
-  , statusChangeTime :: EpochTime
-  , accessTimeHiRes :: POSIXTime
-  , modificationTimeHiRes :: POSIXTime
-  , statusChangeTimeHiRes :: POSIXTime
+    deviceID              :: !DeviceID
+  , fileID                :: !FileID
+  , fileMode              :: !FileMode
+  , linkCount             :: !LinkCount
+  , fileOwner             :: !UserID
+  , fileGroup             :: !GroupID
+  , specialDeviceID       :: !DeviceID
+  , fileSize              :: !FileOffset
+  , accessTime            :: !EpochTime
+  , modificationTime      :: !EpochTime
+  , statusChangeTime      :: !EpochTime
+  , accessTimeHiRes       :: !POSIXTime
+  , modificationTimeHiRes :: !POSIXTime
+  , statusChangeTimeHiRes :: !POSIXTime
 } deriving (Show, Eq, Ord)
 
 
diff --git a/src/HSFM/GUI/Gtk/Data.hs b/src/HSFM/GUI/Gtk/Data.hs
index ad2d88b..9e6218d 100644
--- a/src/HSFM/GUI/Gtk/Data.hs
+++ b/src/HSFM/GUI/Gtk/Data.hs
@@ -55,75 +55,75 @@ import System.INotify.ByteString
 -- runtime.
 data MyGUI = MkMyGUI {
   -- |main Window
-    rootWin :: Window
+    rootWin :: !Window
 
   -- widgets on the main window
-  , upViewB :: Button
-  , homeViewB :: Button
-  , refreshViewB :: Button
-  , urlBar :: Entry
-  , statusBar :: Statusbar
-  , clearStatusBar :: Button
-  , scroll :: ScrolledWindow
+  , upViewB        :: !Button
+  , homeViewB      :: !Button
+  , refreshViewB   :: !Button
+  , urlBar         :: !Entry
+  , statusBar      :: !Statusbar
+  , clearStatusBar :: !Button
+  , scroll         :: !ScrolledWindow
 
-  , fprop :: FilePropertyGrid
+  , fprop :: !FilePropertyGrid
 
   -- sub-widgets
-  , menubar :: MenuBar
-  , rcmenu :: RightClickMenu
+  , menubar :: !MenuBar
+  , rcmenu  :: !RightClickMenu
 
   -- other
-  , settings :: TVar FMSettings
+  , settings :: !(TVar FMSettings)
 }
 
 data MenuBar = MkMenuBar {
-    menubarFileQuit :: ImageMenuItem
-  , menubarFileOpen :: ImageMenuItem
-  , menubarFileExecute :: ImageMenuItem
-  , menubarFileNew :: ImageMenuItem
-  , menubarEditCut :: ImageMenuItem
-  , menubarEditCopy :: ImageMenuItem
-  , menubarEditRename :: ImageMenuItem
-  , menubarEditPaste :: ImageMenuItem
-  , menubarEditDelete :: ImageMenuItem
-  , menubarViewTree :: ImageMenuItem
-  , menubarViewIcon :: ImageMenuItem
-  , menubarHelpAbout :: ImageMenuItem
+    menubarFileQuit    :: !ImageMenuItem
+  , menubarFileOpen    :: !ImageMenuItem
+  , menubarFileExecute :: !ImageMenuItem
+  , menubarFileNew     :: !ImageMenuItem
+  , menubarEditCut     :: !ImageMenuItem
+  , menubarEditCopy    :: !ImageMenuItem
+  , menubarEditRename  :: !ImageMenuItem
+  , menubarEditPaste   :: !ImageMenuItem
+  , menubarEditDelete  :: !ImageMenuItem
+  , menubarViewTree    :: !ImageMenuItem
+  , menubarViewIcon    :: !ImageMenuItem
+  , menubarHelpAbout   :: !ImageMenuItem
 }
 
 data RightClickMenu = MkRightClickMenu {
-    rcMenu :: Menu
-  , rcFileOpen :: ImageMenuItem
-  , rcFileExecute :: ImageMenuItem
-  , rcFileNewRegFile :: ImageMenuItem
-  , rcFileNewDir :: ImageMenuItem
-  , rcFileCut :: ImageMenuItem
-  , rcFileCopy :: ImageMenuItem
-  , rcFileRename :: ImageMenuItem
-  , rcFilePaste :: ImageMenuItem
-  , rcFileDelete :: ImageMenuItem
-  , rcFileProperty :: ImageMenuItem
+    rcMenu           :: !Menu
+  , rcFileOpen       :: !ImageMenuItem
+  , rcFileExecute    :: !ImageMenuItem
+  , rcFileNewRegFile :: !ImageMenuItem
+  , rcFileNewDir     :: !ImageMenuItem
+  , rcFileCut        :: !ImageMenuItem
+  , rcFileCopy       :: !ImageMenuItem
+  , rcFileRename     :: !ImageMenuItem
+  , rcFilePaste      :: !ImageMenuItem
+  , rcFileDelete     :: !ImageMenuItem
+  , rcFileProperty   :: !ImageMenuItem
 }
 
 data FilePropertyGrid = MkFilePropertyGrid {
-    fpropGrid :: Grid
-  , fpropFnEntry :: Entry
-  , fpropLocEntry :: Entry
-  , fpropTsEntry :: Entry
-  , fpropModEntry :: Entry
-  , fpropAcEntry :: Entry
+    fpropGrid     :: !Grid
+  , fpropFnEntry  :: !Entry
+  , fpropLocEntry :: !Entry
+  , fpropTsEntry  :: !Entry
+  , fpropModEntry :: !Entry
+  , fpropAcEntry  :: !Entry
 }
 
 
 -- |FM-wide settings.
 data FMSettings = MkFMSettings {
-    showHidden :: Bool
-  , isLazy :: Bool
-  , iconSize :: Int
+    showHidden :: !Bool
+  , isLazy     :: !Bool
+  , iconSize   :: !Int
 }
 
-data FMView = FMTreeView TreeView
-            | FMIconView IconView
+data FMView = FMTreeView !TreeView
+            | FMIconView !IconView
 
 type Item = File FileInfo
 
@@ -131,17 +131,17 @@ type Item = File FileInfo
 -- |This describes the contents of the current vie and is separated from MyGUI,
 -- because we might want to have multiple views.
 data MyView = MkMyView {
-    view            :: TVar FMView
-  , cwd             :: MVar Item
-  , rawModel        :: TVar (ListStore Item)
-  , sortedModel     :: TVar (TypedTreeModelSort Item)
-  , filteredModel   :: TVar (TypedTreeModelFilter Item)
-  , operationBuffer :: TVar FileOperation
-  , inotify         :: MVar INotify
+    view            :: !(TVar FMView)
+  , cwd             :: !(MVar Item)
+  , rawModel        :: !(TVar (ListStore Item))
+  , sortedModel     :: !(TVar (TypedTreeModelSort Item))
+  , filteredModel   :: !(TVar (TypedTreeModelFilter Item))
+  , operationBuffer :: !(TVar FileOperation)
+  , inotify         :: !(MVar INotify)
 
   -- the first part of the tuple represents the "go back"
   -- the second part the "go forth" in the history
-  , history         :: TVar ([Path Abs], [Path Abs])
+  , history         :: !(TVar ([Path Abs], [Path Abs]))
 }