diff options
Diffstat (limited to 'compiler/utils/Util.hs')
| -rw-r--r-- | compiler/utils/Util.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/utils/Util.hs b/compiler/utils/Util.hs index aa3a19b64c..a1dacb45e5 100644 --- a/compiler/utils/Util.hs +++ b/compiler/utils/Util.hs @@ -553,6 +553,8 @@ list giving the break-off point: -} takeList :: [b] -> [a] -> [a] +-- (takeList as bs) trims bs to the be same length +-- as as, unless as is longer in which case it's a no-op takeList [] _ = [] takeList (_:xs) ls = case ls of |