hindent-6.3.0: src/HIndent/Ast/Module/Name.hs

module HIndent.Ast.Module.Name
  ( ModuleName
  , mkModuleName
  ) where

import qualified GHC.Unit as GHC
import HIndent.Ast.NodeComments
import {-# SOURCE #-} HIndent.Pretty
import HIndent.Pretty.Combinators
import HIndent.Pretty.NodeComments

newtype ModuleName =
  ModuleName String
  deriving (Eq, Ord)

instance CommentExtraction ModuleName where
  nodeComments _ = NodeComments [] [] []

instance Pretty ModuleName where
  pretty' (ModuleName x) = string x

mkModuleName :: GHC.ModuleName -> ModuleName
mkModuleName = ModuleName . GHC.moduleNameString