compileQVar :: Module -> Name -> Compile Identifier
compileQVar mod name = do
  when (elem (modulePackageId mod) wiredInPackages &&
        not (elem (printName name) (map printNameParts supported))) $
    error $ "Unsupported built-in identifier: " ++
            T.unpack (printName name) ++
            " (" ++ T.unpack (encodeName name) ++ ")"
  return (translateName name)
compileQVar :: Module -> Name -> Compile Identifier
compileQVar mod name = do
  when (elem (modulePackageId mod) wiredInPackages &&
        not (elem (printName name) (map printNameParts supported))) $
    error $ "Unsupported built-in identifier: " ++
            T.unpack (printName name) ++
            " (" ++ T.unpack (encodeName name) ++ ")"
  return (translateName name)
compileQVar mod name = do
  when (elem (modulePackageId mod) wiredInPackages &&
        not (elem (printName name) (map printNameParts supported))) $
    error $ "Unsupported built-in identifier: " ++
            T.unpack (printName name) ++
            " (" ++ T.unpack (encodeName name) ++ ")"
  return (translateName name)