git.iko.soy/elk
on master help sign in
Add binary instance to non-empty lists
184b14cEvan Czaplicki
compiler/src/Data/NonEmptyList.hs+11
compare with master
unifiedsplit
@@ -6,6 +6,8 @@ module Data.NonEmptyList
6 where
6 where
7
7
8
8
9+import Control.Monad (liftM2)
10+import Data.Binary (Binary, get, put)
9import qualified Data.List as List
11import qualified Data.List as List
10
12
11
13
@@ -55,3 +57,12 @@ sortBy comparison (List x xs) =
55 LT -> List x (y:ys)
57 LT -> List x (y:ys)
56 EQ -> List x (y:ys)
58 EQ -> List x (y:ys)
57 GT -> List y (List.insertBy comparison x ys)
59 GT -> List y (List.insertBy comparison x ys)
60+
61+
62+
63+-- BINARY
64+
65+
66+instance (Binary a) => Binary (List a) where
67+ put (List x xs) = put x >> put xs
68+ get = liftM2 List get get