diff --git a/src/Data/Binary/Class.hs b/src/Data/Binary/Class.hs index 3bec0145603afca803804df763007e74fb41ad39..42dfcdc4fd43501683e2fee4d2d18bce41f3aea6 100644 --- a/src/Data/Binary/Class.hs +++ b/src/Data/Binary/Class.hs @@ -833,7 +833,7 @@ instance Binary a => Binary (NE.NonEmpty a) where get = do list <- get case list of - [] -> fail "NonEmpty is actually empty!" + [] -> fail "NonEmpty is empty!" x:xs -> pure (x NE.:| xs) put = put . NE.toList #endif