@@ -18,6 +18,7 @@ module Grenade.Layers.Crop (
19import Data.Maybe
19import Data.Maybe
20import Data.Proxy
20import Data.Proxy
21import Data.Singletons.TypeLits
22import Data.Singletons.TypeLits
22import GHC.TypeLits
23import GHC.TypeLits
@@ -42,6 +43,10 @@ instance UpdateLayer (Crop l t r b) where
42 runUpdate _ x _ = x
43 runUpdate _ x _ = x
43 createRandom = return Crop
44 createRandom = return Crop
46+instance Serialize (Crop l t r b) where
45-- | A two dimentional image can be cropped.
50-- | A two dimentional image can be cropped.
46instance ( KnownNat cropLeft
51instance ( KnownNat cropLeft
47 , KnownNat cropTop
52 , KnownNat cropTop