suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changed a little code to use the more appropriate fromMaybe function rather than maybe

Browse Source
This commit is contained in:
Neil Brown 2008-01-27 18:37:02 +00:00
parent 349d3c5811
commit 1cc731a7d8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
transformations/ArrayUsageCheck.hs
View File

@ -59,7 +59,7 @@ checkArrayUsage graph = sequence_ $ checkPar checkArrayUsage' graph
groupArrayIndexes vs = filterByKey $ transformParItems (uncurry (zipMap join) . (transformPair (makeList . writtenVars) (makeList . readVars)) . mkPair) vs
where
join :: Maybe [a] -> Maybe [a] -> Maybe ([a],[a])
join x y = Just (maybe [] id x, maybe [] id y)
join x y = Just (fromMaybe [] x, fromMaybe [] y)
flattenParItems :: ParItems a -> [a]
flattenParItems (SeqItems xs) = xs