From e6811f16345abdeb2e97bb19f5e43eb06ace2369 Mon Sep 17 00:00:00 2001
From: azahi <azahi@teknik.io>
Date: Fri, 29 Jun 2018 10:58:41 +0300
Subject: Bump to 0.2.0.1

Minor code tweaks
Add header messages
Change indentation
Move per-module GHC_OPTIONS to their respective module
---
 src/XMonad/Custom/Misc.hs | 42 ++++++++++++++++++++++++++++++------------
 1 file changed, 30 insertions(+), 12 deletions(-)

(limited to 'src/XMonad/Custom/Misc.hs')

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"
+    }
-- 
cgit 1.4.1