[commit: ghc] master: Remove unnecessary import, plus white space (b24792b)
Simon Marlow
marlowsd at gmail.com
Wed Mar 2 16:46:19 CET 2011
Repository : ssh://darcs.haskell.org//srv/darcs/ghc
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b24792b081f7f74cf52c0c3178cb71fccfc1fcb3
>---------------------------------------------------------------
commit b24792b081f7f74cf52c0c3178cb71fccfc1fcb3
Author: simonpj at microsoft.com <unknown>
Date: Fri Feb 11 17:39:25 2011 +0000
Remove unnecessary import, plus white space
>---------------------------------------------------------------
compiler/typecheck/TcSMonad.lhs | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/compiler/typecheck/TcSMonad.lhs b/compiler/typecheck/TcSMonad.lhs
index 27ecb44..8d5093d 100644
--- a/compiler/typecheck/TcSMonad.lhs
+++ b/compiler/typecheck/TcSMonad.lhs
@@ -106,7 +106,6 @@ import FunDeps
import TcRnTypes
-import Control.Monad
import Data.IORef
\end{code}
@@ -327,9 +326,10 @@ combineCtLoc _ (Derived loc ) = loc
combineCtLoc _ _ = panic "combineCtLoc: both given"
mkGivenFlavor :: CtFlavor -> SkolemInfo -> CtFlavor
-mkGivenFlavor (Wanted loc) sk = Given (setCtLocOrigin loc sk)
-mkGivenFlavor (Derived loc) sk = Given (setCtLocOrigin loc sk)
-mkGivenFlavor (Given loc) sk = Given (setCtLocOrigin loc sk)
+mkGivenFlavor (Wanted loc) sk = Given (setCtLocOrigin loc sk)
+mkGivenFlavor (Derived loc) sk = Given (setCtLocOrigin loc sk)
+mkGivenFlavor (Given loc) sk = Given (setCtLocOrigin loc sk)
+
mkWantedFlavor :: CtFlavor -> CtFlavor
mkWantedFlavor (Wanted loc) = Wanted loc
More information about the Cvs-ghc
mailing list