about summary refs log tree commit diff
path: root/src/XMonad/Custom/Misc.hs
diff options
context:
space:
mode:
authorazahi <azahi@teknik.io>2018-06-29 10:58:41 +0300
committerazahi <azahi@teknik.io>2018-06-29 10:58:41 +0300
commite6811f16345abdeb2e97bb19f5e43eb06ace2369 (patch)
tree52b3d9e2a4ceae7e154fc48c940f3d67a0992a4f /src/XMonad/Custom/Misc.hs
parentFix resolver issue (diff)
Bump to 0.2.0.1
Minor code tweaks
Add header messages
Change indentation
Move per-module GHC_OPTIONS to their respective module
Diffstat (limited to 'src/XMonad/Custom/Misc.hs')
-rw-r--r--src/XMonad/Custom/Misc.hs42
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"
+    }

Consider giving Nix/NixOS a try! <3