transformStm :: Stm ExplicitMemory -> ExpandM [Stm ExplicitMemory]

transformStm (Let pat aux e) = do
  (bnds, e') <- transformExp =<< mapExpM transform e
  return $ bnds ++ [Let pat aux e']
  where transform = identityMapper { mapOnBody = const transformBody
                                   }
transformStm :: Stm ExplicitMemory -> ExpandM [Stm ExplicitMemory]
transformStm (Let pat aux e) = do
  (bnds, e') <- transformExp =<< mapExpM transform e
  return $ bnds ++ [Let pat aux e']
  where transform = identityMapper { mapOnBody = const transformBody
                                   }
transformStm (Let pat aux e) = do
  (bnds, e') <- transformExp =<< mapExpM transform e
  return $ bnds ++ [Let pat aux e']
  where transform = identityMapper { mapOnBody = const transformBody
                                   }