compSharedBulkArrCMD :: (BulkArrCMD SArr) (Param3 RunGen exp pred) a -> RunGen a
compSharedBulkArrCMD (WriteArr offset spm range ram) =
    compSharedCopy "host_write_shared" spm ram offset range
compSharedBulkArrCMD :: (BulkArrCMD SArr) (Param3 RunGen exp pred) a -> RunGen a
compSharedBulkArrCMD (WriteArr offset spm range ram) =
    compSharedCopy "host_write_shared" spm ram offset range
compSharedBulkArrCMD (WriteArr offset spm range ram) =
    compSharedCopy "host_write_shared" spm ram offset range