From 2ad7555b2d4b64bc124a02c7a6774f6526433902 Mon Sep 17 00:00:00 2001 From: Mats Rauhala Date: Thu, 21 Mar 2019 23:29:39 +0200 Subject: [PATCH] Formatting changes --- src/XMonad/Config/MasseR/ExtraConfig.hs | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) diff --git a/src/XMonad/Config/MasseR/ExtraConfig.hs b/src/XMonad/Config/MasseR/ExtraConfig.hs index 8979419..aea9d7f 100644 --- a/src/XMonad/Config/MasseR/ExtraConfig.hs +++ b/src/XMonad/Config/MasseR/ExtraConfig.hs @@ -4,11 +4,22 @@ module XMonad.Config.MasseR.ExtraConfig where import GHC.Generics (Generic) import Data.Text (Text) -data Applications = Applications { browser :: FilePath, launcher :: FilePath, prompt :: FilePath, screenshot :: FilePath, urxvt :: FilePath } deriving (Show, Generic) +data Applications = + Applications { browser :: FilePath + , launcher :: FilePath + , prompt :: FilePath + , screenshot :: FilePath + , urxvt :: FilePath + } deriving (Show, Generic) -data TopicRule = TopicRule { topicName :: Text - , topicHome :: Maybe Text - , topicAction :: Maybe Text } - deriving (Show, Generic) +data TopicRule = + TopicRule { topicName :: Text + , topicHome :: Maybe Text + , topicAction :: Maybe Text + } + deriving (Show, Generic) -data ExtraConfig = ExtraConfig { applications :: Applications, topics :: [ TopicRule ] } deriving (Show, Generic) +data ExtraConfig = + ExtraConfig { applications :: Applications + , topics :: [ TopicRule ] } + deriving (Show, Generic)