Commits

Bryan O'Sullivan  committed 3521997

Fix a bug in the splitWith test. Eek!

  • Participants
  • Parent commits f8c8242

Comments (0)

Files changed (1)

File tests/Properties.hs

 prop_TL_splitWith p    = splitWith p `eqP` (map unpackS . TL.splitWith p)
 
 splitWith :: (a -> Bool) -> [a] -> [[a]]
-splitWith _ [] =  []
+splitWith _ [] =  [[]]
 splitWith p xs = loop xs
     where loop s | null s'   = [l]
                  | otherwise = l : loop (tail s')