@@ -3,11 +3,11 @@
33{-# LANGUAGE StandaloneDeriving #-}
44{-# OPTIONS_GHC -fno-warn-orphans #-}
55
6−
76module Flat.Orphans where
87
98import Data.Fixed
109import Data.Time
10+import Data.Vector
1111import Flat as F
1212
1313
@@ -65,3 +65,5 @@ instance Flat ZonedTime where
6565 size = F.size . zonedTimeToTuple
6666 encode = F.encode . zonedTimeToTuple
6767 decode = uncurry ZonedTime <$> F.decode
68+
69+deriving via (AsArray (Vector a)) instance Flat a => Flat (Vector a)