diff options
| -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 |