type sig for abort.

This commit is contained in:
Don Stewart
2007-05-26 06:14:50 +00:00
parent a5aa4b1686
commit 6346e11ff6

View File

@@ -147,8 +147,9 @@ data Stack a = Empty
deriving (Show, Read, Eq) deriving (Show, Read, Eq)
-- this function indicates to catch that an error is expected -- | this function indicates to catch that an error is expected
abort x = error x abort :: String -> a
abort x = error $ "xmonad: StackSet: " ++ x
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------
-- Construction -- Construction