1 files changed, 30 insertions, 12 deletions
diff --git a/src/XMonad/Custom/Misc.hs b/src/XMonad/Custom/Misc.hs
index 41883b5..dbf7e2c 100644
--- a/src/XMonad/Custom/Misc.hs
+++ b/src/XMonad/Custom/Misc.hs
@@ -1,19 +1,37 @@
+{-# OPTIONS_GHC -funbox-strict-fields #-}
+
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  XMonad.Custom.Misc
+-- Copyright   :  (c) azahi 2018
+-- License     :  BSD3-style (see LICENSE)
+--
+-- Maintainer  :  azahi@teknik.io
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- Miscellaneous functions, data types and declarations used for 'XMonad.Custom'.
+--
+------------------------------------------------------------------------
+
 module XMonad.Custom.Misc
     ( Applications (..)
     , customApplications
     ) where
 
-data Applications = Applications { term    :: String
-                                 , browser :: String
-                                 , top     :: String
-                                 , mixer   :: String
-                                 , notify  :: String
-                                 } deriving (Show)
+data Applications = Applications
+    { term    :: !String
+    , browser :: !String
+    , top     :: !String
+    , mixer   :: !String
+    , notify  :: !String
+    } deriving (Eq, Show)
 
 customApplications :: Applications
-customApplications = Applications { term    = "/usr/bin/urxvtc"
-                                  , browser = "/usr/bin/qutebrowser"
-                                  , top     = "/usr/bin/htop"
-                                  , mixer   = "/usr/bin/alsamixer"
-                                  , notify  = "/usr/bin/notify-send"
-                                  }
+customApplications = Applications
+    { term    = "/usr/bin/urxvtc"
+    , browser = "/usr/bin/qutebrowser"
+    , top     = "/usr/bin/htop"
+    , mixer   = "/usr/bin/alsamixer"
+    , notify  = "/usr/bin/notify-send"
+    }