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 | 4a5a096d7e9f3dd67c6903325a56092906113041 (patch) | |
| tree | 9c462ae34e650a89fe51f9b5f2ca3e9f7678c124 | |
| parent | 0a959ad3791768e8de4be98b3f3e0f2e07ea2d25 (diff) | |
| download | metatile-4a5a096d7e9f3dd67c6903325a56092906113041.tar metatile-4a5a096d7e9f3dd67c6903325a56092906113041.zip | |
type sig for abort.
darcs-hash:20070526061450-9c5c1-217d8a3962ce1422eedfb90f8c9d7e8578d83d60
| -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 |