diff options
| author | Thomas Schilling <nominolo@googlemail.com> | 2008-07-20 17:31:05 +0000 |
|---|---|---|
| committer | Thomas Schilling <nominolo@googlemail.com> | 2008-07-20 17:31:05 +0000 |
| commit | 268377f59589e6afec1048458c350011ebb74afe (patch) | |
| tree | 1e713360061550450f275d10a52f18ce6d46db03 | |
| parent | bb7ffa1642e2110e26e1243c42a8a24adafa985d (diff) | |
| download | haskell-268377f59589e6afec1048458c350011ebb74afe.tar.gz | |
Fix Haddock errors.
| -rw-r--r-- | compiler/utils/GraphPpr.hs | 6 | ||||
| -rw-r--r-- | compiler/utils/Panic.lhs | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/compiler/utils/GraphPpr.hs b/compiler/utils/GraphPpr.hs index 1df5158dc2..8149b2aa86 100644 --- a/compiler/utils/GraphPpr.hs +++ b/compiler/utils/GraphPpr.hs @@ -58,9 +58,9 @@ dumpNode node dotGraph :: ( Uniquable k , Outputable k, Outputable cls, Outputable color) - => (color -> SDoc) -- | What graphviz color to use for each node color - -- It's usually safe to return X11 style colors here, - -- ie "red", "green" etc or a hex triplet #aaff55 etc + => (color -> SDoc) -- ^ What graphviz color to use for each node color + -- It's usually safe to return X11 style colors here, + -- ie "red", "green" etc or a hex triplet #aaff55 etc -> Triv k cls color -> Graph k cls color -> SDoc diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index b8ab86af68..97648b72de 100644 --- a/compiler/utils/Panic.lhs +++ b/compiler/utils/Panic.lhs @@ -168,7 +168,7 @@ tryUser action = tryJust tc_errors action where tc_errors e@(Exception.IOException ioe) | isUserError ioe = Just e tc_errors _other = Nothing -\end{code} +\end{code} Standard signal handlers for catching ^C, which just throw an exception in the target thread. The current target thread is |