huwcampbell.com
💣 Machine learning which might blow up in your face 💣
Add Serialize instance for Crop layer
+5
+5
src/Grenade/Layers/Crop.hs
+5
src/Grenade/Layers/Crop.hs
···
18
18
19
19
import Data.Maybe
20
20
import Data.Proxy
21
+
import Data.Serialize
21
22
import Data.Singletons.TypeLits
22
23
import GHC.TypeLits
23
24
···
41
42
type Gradient (Crop l t r b) = ()
42
43
runUpdate _ x _ = x
43
44
createRandom = return Crop
45
+
46
+
instance Serialize (Crop l t r b) where
47
+
put _ = return ()
48
+
get = return Crop
44
49
45
50
-- | A two dimentional image can be cropped.
46
51
instance ( KnownNat cropLeft