diff options
Diffstat (limited to 'src/Compile.hs')
| -rw-r--r-- | src/Compile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Compile.hs b/src/Compile.hs index a5c4fb7..2b7cd9e 100644 --- a/src/Compile.hs +++ b/src/Compile.hs @@ -1481,7 +1481,7 @@ copyForWriting topty var = case topty of -- nesting we'd have to check the refcounts of all the nested arrays _too_; -- let's not do that. Furthermore, no sub-arrays means that the whole thing -- is flat, and we can just memcpy if necessary. - SMTArr n t | not (hasArrays (fromSMTy t)) -> do + SMTArr n t | not (typeHasArrays (fromSMTy t)) -> do name <- genName shszname <- genName' "shsz" emit $ SVarDeclUninit toptyname name |