module Language.PureScript.Ide.Conversions where
import Protolude
import Data.Text (unwords, lines, strip)
import qualified Language.PureScript as P
runProperNameT :: P.ProperName a -> Text
runProperNameT = toS . P.runProperName
runIdentT :: P.Ident -> Text
runIdentT = toS . P.runIdent
runOpNameT :: P.OpName a -> Text
runOpNameT = toS . P.runOpName
runModuleNameT :: P.ModuleName -> Text
runModuleNameT = toS . P.runModuleName
prettyTypeT :: P.Type -> Text
prettyTypeT = unwords . map strip . lines . toS . P.prettyPrintType