Repository : ssh://darcs.haskell.org//srv/darcs/packages/template-haskell On branch : master
http://hackage.haskell.org/trac/ghc/changeset/020a258df29eba3b5bbae14a8c158acc1d40bba5 >--------------------------------------------------------------- commit 020a258df29eba3b5bbae14a8c158acc1d40bba5 Author: Simon Peyton Jones <[email protected]> Date: Mon Jul 16 17:43:44 2012 +0100 Remove Language.Haskell.TH.Syntax.Internals It didn't contain much, and the approved import route is Language.Haskell.TH, so in effect the Syntax module is already an internal one. Thanks to Reiner Pope. >--------------------------------------------------------------- Language/Haskell/TH/Syntax.hs | 45 +++++++------------------------ Language/Haskell/TH/Syntax/Internals.hs | 29 -------------------- template-haskell.cabal | 1 - 3 files changed, 10 insertions(+), 65 deletions(-) diff --git a/Language/Haskell/TH/Syntax.hs b/Language/Haskell/TH/Syntax.hs index 8e18c52..7c871e8 100644 --- a/Language/Haskell/TH/Syntax.hs +++ b/Language/Haskell/TH/Syntax.hs @@ -20,44 +20,10 @@ -- ----------------------------------------------------------------------------- -module Language.Haskell.TH.Syntax( - Quasi(..), Lift(..), liftString, - - Q, runQ, - report, recover, reify, - lookupTypeName, lookupValueName, - location, runIO, addDependentFile, - isInstance, reifyInstances, - - -- * Names - Name(..), mkName, newName, nameBase, nameModule, - showName, showName', NameIs(..), - - -- * The algebraic data types - -- $infix - Dec(..), Exp(..), Con(..), Type(..), TyVarBndr(..), Kind, Cxt, - TyLit(..), - Pred(..), Match(..), Clause(..), Body(..), Guard(..), Stmt(..), - Range(..), Lit(..), Pat(..), FieldExp, FieldPat, - Strict(..), Foreign(..), Callconv(..), Safety(..), Pragma(..), - Inline(..), InlineSpec(..), StrictType, VarStrictType, FunDep(..), - FamFlavour(..), Info(..), Loc(..), CharPos, - Fixity(..), FixityDirection(..), defaultFixity, maxPrecedence, - - -- * Internal functions - returnQ, bindQ, sequenceQ, - NameFlavour(..), NameSpace (..), - mkNameG_v, mkNameG_d, mkNameG_tc, Uniq, mkNameL, mkNameU, - tupleTypeName, tupleDataName, - unboxedTupleTypeName, unboxedTupleDataName, - OccName, mkOccName, occString, - ModName, mkModName, modString, - PkgName, mkPkgName, pkgString - ) where +module Language.Haskell.TH.Syntax where import GHC.Base ( Int(..), Int#, (<#), (==#) ) -import Language.Haskell.TH.Syntax.Internals import Data.Data (Data(..), Typeable, mkConstr, mkDataType, constrIndex) import qualified Data.Data as Data import Control.Applicative( Applicative(..) ) @@ -461,6 +427,15 @@ rightName = mkNameG DataName "base" "Data.Either" "Right" -- Names and uniques ----------------------------------------------------- +newtype ModName = ModName String -- Module name + deriving (Eq,Ord,Typeable,Data) + +newtype PkgName = PkgName String -- package name + deriving (Eq,Ord,Typeable,Data) + +newtype OccName = OccName String + deriving (Eq,Ord,Typeable,Data) + mkModName :: String -> ModName mkModName s = ModName s diff --git a/Language/Haskell/TH/Syntax/Internals.hs b/Language/Haskell/TH/Syntax/Internals.hs deleted file mode 100644 index ea85fd0..0000000 --- a/Language/Haskell/TH/Syntax/Internals.hs +++ /dev/null @@ -1,29 +0,0 @@ -{-# LANGUAGE GeneralizedNewtypeDeriving,DeriveDataTypeable #-} ------------------------------------------------------------------------------ --- | --- Module : Language.Haskell.Syntax.Internals --- Copyright : (c) The University of Glasgow 2009 --- License : BSD-style (see the file libraries/base/LICENSE) --- --- Maintainer : [email protected] --- Stability : experimental --- Portability : portable >--------------------------------------------------------------- --- Abstract syntax definitions for Template Haskell. >--------------------------------------------------------------- ------------------------------------------------------------------------------ - -module Language.Haskell.TH.Syntax.Internals ( - ModName(..), PkgName(..), OccName(..) - ) where - -import Data.Data - -newtype ModName = ModName String -- Module name - deriving (Eq,Ord,Typeable,Data) - -newtype PkgName = PkgName String -- package name - deriving (Eq,Ord,Typeable,Data) - -newtype OccName = OccName String - deriving (Eq,Ord,Typeable,Data) diff --git a/template-haskell.cabal b/template-haskell.cabal index 5c26196..471a267 100644 --- a/template-haskell.cabal +++ b/template-haskell.cabal @@ -13,7 +13,6 @@ Library build-depends: base >= 4.2 && < 5, pretty, containers exposed-modules: - Language.Haskell.TH.Syntax.Internals Language.Haskell.TH.Syntax Language.Haskell.TH.PprLib Language.Haskell.TH.Ppr _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
