@@ -111,7 +111,7 @@ takeWhile w s =
111111takeWhile1 :: Char -> L.Text -> Property
112112takeWhile1 w s =
113113 let s' = L.cons w s
114− (h,t) = L.span (<=w) s'
114+ (h,t) = L.span (<=w) s'
115115 in case PL.parse (P.takeWhile1 (<=w)) s' of
116116 PL.Done t' h' -> t === t' .&&. toStrict h === h'
117117 _ -> property False