compileName :: Name -> Compile Identifier
compileName name = do
  case nameModule_maybe name of
    Just mname -> compileQVar mname name
    Nothing    -> return (translateName name)
compileName :: Name -> Compile Identifier
compileName name = do
  case nameModule_maybe name of
    Just mname -> compileQVar mname name
    Nothing    -> return (translateName name)
compileName name = do
  case nameModule_maybe name of
    Just mname -> compileQVar mname name
    Nothing    -> return (translateName name)