From 871c2f509deb47a88b826be17d0ec5241493c258 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Sat, 26 May 2007 08:14:50 +0200
Subject: type sig for abort.

darcs-hash:20070526061450-9c5c1-217d8a3962ce1422eedfb90f8c9d7e8578d83d60.gz
---
 StackSet.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'StackSet.hs')

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
-- 
cgit v1.2.3