@@ -24,12 +24,6 @@ import Data.List
2424import Data.Monoid ((<>))
2525import Data.Text
2626
27−import Language.PureScript.CodeGen.Cpp.Common
28−import Language.PureScript.Names
29−import qualified Language.PureScript.Constants as C
30−
31−-- import Debug.Trace
32−
3327data CppType = Primitive Text | Auto [TypeQual] | Any [TypeQual]
3428 deriving (Show, Read, Eq)
3529
@@ -104,15 +98,6 @@ runValueQual TopLevel = ""
10498runCaptureType :: CaptureType -> Text
10599runCaptureType CaptureAll = "="
106100
107−-- TODO: move or remove this
108−--
109−qualifiedToStr :: ModuleName -> (a -> Ident) -> Qualified a -> Text
110−qualifiedToStr _ f (Qualified (Just (ModuleName [ProperName mn])) a)
111− | mn == C.prim = runIdent $ f a
112−qualifiedToStr m f (Qualified (Just m') a)
113− | m /= m' = moduleNameToCpp m' <> "::" <> identToCpp (f a)
114−qualifiedToStr _ f (Qualified _ a) = identToCpp (f a)
115−
116101boolType :: CppType
117102boolType = Primitive "bool"
118103