
22 Jul
2011
22 Jul
'11
10:58 p.m.
Dennis Raddle
mapOutList :: Ord k => [(k,a)] -> Mpa k [a] mapOutList list = M.fromList $ map (second (: [])) list
I'm not sure that this really does what you want. Rather something like this: fromAmbList :: Ord k => [(k, a)] -> Map k [a] fromAmbList = M.fromListWith (++) . map (second pure) Greets, Ertugrul -- nightmare = unsafePerformIO (getWrongWife >>= sex) http://ertes.de/