translateExpression e =
  JSError $ "Not yet implemented: " ++ filter (/= '\'') (show e)
translateExpression e =
  JSError $ "Not yet implemented: " ++ filter (/= '\'') (show e)
translateExpression e =
  JSError $ "Not yet implemented: " ++ filter (/= '\'') (show e)