on master help sign in
Merge pull request #57 from sholland1/serialize-instance
647e491Huw Campbell
src/Grenade/Layers/Crop.hs+5
@@ -18,6 +18,7 @@ module Grenade.Layers.Crop (
18
18
19import Data.Maybe
19import Data.Maybe
20import Data.Proxy
20import Data.Proxy
21+import Data.Serialize
21import Data.Singletons.TypeLits
22import Data.Singletons.TypeLits
22import GHC.TypeLits
23import GHC.TypeLits
23
24
@@ -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
44
45
46+instance Serialize (Crop l t r b) where
47+ put _ = return ()
48+ get = return Crop
49+
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