@@ -3,11 +3,11 @@
33{-# LANGUAGE StandaloneDeriving #-}
44{-# OPTIONS_GHC -fno-warn-orphans #-}
55
6+
67module Flat.Orphans where
78
89import Data.Fixed
910import Data.Time
10−import Data.Vector
1111import Flat as F
1212
1313
@@ -65,5 +65,3 @@ 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)