Skip to content
Snippets Groups Projects
Unverified Commit 6f4612cc authored by Lennart Kolmodin's avatar Lennart Kolmodin Committed by GitHub
Browse files

Update src/Data/Binary/Class.hs 


Co-Authored-By: default avatarharpocrates <alec.theriault@gmail.com>
parent b9101c8d
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/Data/Binary/Class.hs
+ 1
− 1
View file @ 6f4612cc
...@@ -833,7 +833,7 @@ instance Binary a => Binary (NE.NonEmpty a) where ...@@ -833,7 +833,7 @@ instance Binary a => Binary (NE.NonEmpty a) where
get = do get = do
list <- get list <- get
case list of case list of
[] -> fail "NonEmpty is actually empty!" [] -> fail "NonEmpty is empty!"
x:xs -> pure (x NE.:| xs) x:xs -> pure (x NE.:| xs)
put = put . NE.toList put = put . NE.toList
#endif #endif
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment