projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6fdbbac
)
Make BuildTyCl warning-free
author
Ian Lynagh
<igloo@earth.li>
Sun, 4 May 2008 18:23:36 +0000
(18:23 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sun, 4 May 2008 18:23:36 +0000
(18:23 +0000)
compiler/iface/BuildTyCl.lhs
patch
|
blob
|
history
diff --git
a/compiler/iface/BuildTyCl.lhs
b/compiler/iface/BuildTyCl.lhs
index
99f5abe
..
597e57c
100644
(file)
--- a/
compiler/iface/BuildTyCl.lhs
+++ b/
compiler/iface/BuildTyCl.lhs
@@
-4,13
+4,6
@@
%
\begin{code}
%
\begin{code}
-{-# OPTIONS -w #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and fix
--- any warnings in the module. See
--- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
--- for details
-
module BuildTyCl (
buildSynTyCon, buildAlgTyCon, buildDataCon,
buildClass,
module BuildTyCl (
buildSynTyCon, buildAlgTyCon, buildDataCon,
buildClass,
@@
-26,7
+19,6
@@
import TcRnMonad
import DataCon
import Var
import VarSet
import DataCon
import Var
import VarSet
-import TysWiredIn
import BasicTypes
import Name
import OccName
import BasicTypes
import Name
import OccName
@@
-218,6
+210,7
@@
buildDataCon src_name declared_infix arg_stricts field_lbls
-- the type variables mentioned in the arg_tys
-- ToDo: Or functionally dependent on?
-- This whole stupid theta thing is, well, stupid.
-- the type variables mentioned in the arg_tys
-- ToDo: Or functionally dependent on?
-- This whole stupid theta thing is, well, stupid.
+mkDataConStupidTheta :: TyCon -> [Type] -> [TyVar] -> [PredType]
mkDataConStupidTheta tycon arg_tys univ_tvs
| null stupid_theta = [] -- The common case
| otherwise = filter in_arg_tys stupid_theta
mkDataConStupidTheta tycon arg_tys univ_tvs
| null stupid_theta = [] -- The common case
| otherwise = filter in_arg_tys stupid_theta