From ccaac642dea074e397058f1a6a877673e54a86fe Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 30 Jun 2007 08:59:16 +0200 Subject: More ScreenDetails fixes darcs-hash:20070630065916-a5988-433e92903a6530e5efe8f36c3af60339cb9876ec.gz --- DwmPromote.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'DwmPromote.hs') diff --git a/DwmPromote.hs b/DwmPromote.hs index b774133..7ec8fd6 100644 --- a/DwmPromote.hs +++ b/DwmPromote.hs @@ -39,7 +39,7 @@ import StackSet dwmpromote :: X () dwmpromote = windows swap -swap :: StackSet i a s -> StackSet i a s +swap :: StackSet i a s sd -> StackSet i a s sd swap = modify' $ \c -> case c of Stack _ [] [] -> c Stack t [] (x:rs) -> Stack x [] (t:rs) -- cgit v1.2.3