Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 19 lines (16 sloc) 0.601 kB
14e9771 @serras Initial commit
authored
1 -----------------------------------------------------------------------------
2 -- |
3 -- Module : AFRPDiagnostics
4 -- Copyright : (c) Yale University, 2003
5 -- License : BSD-style (see the file LICENSE)
6 --
7 -- Maintainer : antony@apocalypse.org
8 -- Stability : provisional
9 -- Portability : non-portable (uses GHC extensions)
10 --
11 -- Standardized error-reporting for AFRP
12 --
13 module AFRPDiagnostics where
14
15 usrErr mn fn msg = error (mn ++ "." ++ fn ++ ": " ++ msg)
16
17 intErr mn fn msg = error ("[internal error] " ++ mn ++ "." ++ fn ++ ": "
18 ++ msg)
Something went wrong with that request. Please try again.