From 38b7a2e7f4215ffd1f0d7c3e316cecd6caf76f92 Mon Sep 17 00:00:00 2001 From: bforte Date: Sat, 29 Apr 2017 21:08:12 +0200 Subject: [PATCH 1/2] trivial changes to fix haddock documentation --- XMonad/Actions/CycleWorkspaceByScreen.hs | 15 +++++++++------ XMonad/Hooks/WorkspaceHistory.hs | 4 ++-- 2 files changed, 11 insertions(+), 8 deletions(-) diff --git a/XMonad/Actions/CycleWorkspaceByScreen.hs b/XMonad/Actions/CycleWorkspaceByScreen.hs index 3481dace..1216f00e 100644 --- a/XMonad/Actions/CycleWorkspaceByScreen.hs +++ b/XMonad/Actions/CycleWorkspaceByScreen.hs @@ -1,9 +1,3 @@ -module XMonad.Actions.CycleWorkspaceByScreen - ( cycleWorkspaceOnScreen - , cycleWorkspaceOnCurrentScreen - , handleKeyEvent - , repeatableAction - ) where ----------------------------------------------------------------------------- -- | @@ -20,6 +14,15 @@ module XMonad.Actions.CycleWorkspaceByScreen -- ----------------------------------------------------------------------------- +module XMonad.Actions.CycleWorkspaceByScreen + ( -- * Usage + -- $usage + cycleWorkspaceOnScreen + , cycleWorkspaceOnCurrentScreen + , handleKeyEvent + , repeatableAction + ) where + import Control.Monad import Data.IORef import Data.List diff --git a/XMonad/Hooks/WorkspaceHistory.hs b/XMonad/Hooks/WorkspaceHistory.hs index 9dd8b618..4a3ab1fa 100644 --- a/XMonad/Hooks/WorkspaceHistory.hs +++ b/XMonad/Hooks/WorkspaceHistory.hs @@ -14,11 +14,11 @@ -- ----------------------------------------------------------------------------- -module XMonad.Hooks.WorkspaceHistory +module XMonad.Hooks.WorkspaceHistory ( -- * Usage -- $usage -- * Hooking - ( workspaceHistoryHook + workspaceHistoryHook -- * Querying , workspaceHistory , workspaceHistoryByScreen From 295d416e9d99e9e43463c3d8e684f53e0dbd330f Mon Sep 17 00:00:00 2001 From: Bruce Forte Date: Sat, 29 Apr 2017 22:53:42 +0200 Subject: [PATCH 2/2] Update CycleWorkspaceByScreen.hs --- XMonad/Actions/CycleWorkspaceByScreen.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/XMonad/Actions/CycleWorkspaceByScreen.hs b/XMonad/Actions/CycleWorkspaceByScreen.hs index 1216f00e..f46e22ba 100644 --- a/XMonad/Actions/CycleWorkspaceByScreen.hs +++ b/XMonad/Actions/CycleWorkspaceByScreen.hs @@ -14,8 +14,8 @@ -- ----------------------------------------------------------------------------- -module XMonad.Actions.CycleWorkspaceByScreen - ( -- * Usage +module XMonad.Actions.CycleWorkspaceByScreen ( + -- * Usage -- $usage cycleWorkspaceOnScreen , cycleWorkspaceOnCurrentScreen