diff options
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} %************************************************************************ |