Merge branch 'master' into atomics
[ghc.git] / testsuite / tests / simplCore / should_compile / T5342.hs
1 module T5342 (increaseAreas) where
2
3 import Control.Monad
4 import Data.List
5
6 nubSorted :: Eq a => [a] -> [a]
7 nubSorted = undefined
8
9 cellsAround :: (Num a, Num b, Ord a, Ord b) => [(a, b)] -> [(a, b)]
10 cellsAround = undefined
11
12 increaseAreas :: (Num a, Num b, Ord a, Ord b) => [[(a, b)]] -> [[(a, b)]]
13 increaseAreas areas
14 = nubSorted $ sort $
15 do
16 area <- areas
17 cell2 <- cellsAround area
18 return $ sort $ cell2 : area