diff options
| author | sewardj <unknown> | 2000-11-20 11:39:57 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-11-20 11:39:57 +0000 |
| commit | c7955cf7e34273b5ec624dae0015cec677624c6c (patch) | |
| tree | 4806d0c17d9c848c4ed398b44d7cd317017f442a /ghc/compiler/utils | |
| parent | 7897eb8d1f077874022e6ba1f69ff3c3d59a83d9 (diff) | |
| download | haskell-c7955cf7e34273b5ec624dae0015cec677624c6c.tar.gz | |
[project @ 2000-11-20 11:39:57 by sewardj]
* (CompManager) recompile if in interactive mode and no old linkable exists
* (HscMain) don't write interface files in interactive mode
* (everywhere) switch arg order to unJust for PAP purposes
Diffstat (limited to 'ghc/compiler/utils')
| -rw-r--r-- | ghc/compiler/utils/Util.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs index 52966b8859..78aec401b6 100644 --- a/ghc/compiler/utils/Util.lhs +++ b/ghc/compiler/utils/Util.lhs @@ -138,9 +138,9 @@ nTimes n f = f . nTimes (n-1) f %************************************************************************ \begin{code} -unJust :: Maybe a -> String -> a -unJust (Just x) who = x -unJust Nothing who = panic ("unJust of Nothing, called by " ++ who) +unJust :: String -> Maybe a -> a +unJust who (Just x) = x +unJust who Nothing = panic ("unJust of Nothing, called by " ++ who) \end{code} %************************************************************************ |