From 6346e11ff667314cd0eac29fab74d8aa5ffb8765 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Sat, 26 May 2007 06:14:50 +0000
Subject: [PATCH] type sig for abort.

---
 StackSet.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/StackSet.hs b/StackSet.hs
index 68d56e8..f6af748 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -147,8 +147,9 @@ data Stack a = Empty
     deriving (Show, Read, Eq)
 
 
--- this function indicates to catch that an error is expected
-abort x = error x
+-- | this function indicates to catch that an error is expected
+abort :: String -> a
+abort x = error $ "xmonad: StackSet: " ++ x
 
 -- ---------------------------------------------------------------------
 -- Construction