Commit 18d48b49 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

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.
parent d27c4541
......@@ -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
......
{-# 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 : libraries@haskell.org
-- 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)
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment