diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-26 08:14:50 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-26 08:14:50 +0200 |
| commit | 871c2f509deb47a88b826be17d0ec5241493c258 (patch) | |
| tree | 9c462ae34e650a89fe51f9b5f2ca3e9f7678c124 | |
| parent | 0252be477022ddb6a85908a88c75c534e3a286e4 (diff) | |
| download | xmonad-871c2f509deb47a88b826be17d0ec5241493c258.tar.gz xmonad-871c2f509deb47a88b826be17d0ec5241493c258.tar.xz xmonad-871c2f509deb47a88b826be17d0ec5241493c258.zip | |
type sig for abort.
darcs-hash:20070526061450-9c5c1-217d8a3962ce1422eedfb90f8c9d7e8578d83d60.gz
Diffstat (limited to '')
| -rw-r--r-- | StackSet.hs | 5 |
1 files 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 |