From 9598b36d69f037794ed34820fbed2c9735c9eaeb Mon Sep 17 00:00:00 2001
From: flupe <lucas@escot.me>
Date: Sun, 27 Sep 2020 01:53:13 +0200
Subject: [PATCH] used DeriveAny to derive Binary & FromJSON instances

---
 site.cabal      |  1 -
 src/Common.hs   | 20 +++++++++++++-------
 src/Main.hs     |  3 ++-
 src/Page.hs     | 13 -------------
 src/Posts.hs    | 11 ++---------
 src/Projects.hs |  1 -
 src/Types.hs    | 25 ++++---------------------
 7 files changed, 21 insertions(+), 53 deletions(-)
 delete mode 100644 src/Page.hs

diff --git a/site.cabal b/site.cabal
index 894b48a..f3c2e8e 100644
--- a/site.cabal
+++ b/site.cabal
@@ -10,7 +10,6 @@ executable site
   hs-source-dirs:      src
   other-modules:       Templates
                      , Types
-                     , Page
                      , Posts
                      , Projects
                      , Common
diff --git a/src/Common.hs b/src/Common.hs
index 0cbca6d..1d0d827 100644
--- a/src/Common.hs
+++ b/src/Common.hs
@@ -9,16 +9,22 @@ module Common
     , module Control.Monad
     , module Data.Maybe
     , module Lucid
+    , module Data.Binary
+    , module GHC.Generics
+    , module Data.Aeson.Types
     ) where
 
 import Achille
 import Achille.Recipe.Pandoc
 
-import Data.Functor    ((<&>))
-import Control.Monad   (forM_, when)
-import Data.Sort       (sort)
-import Data.String     (fromString)
-import Data.Text       (Text)
-import Data.Maybe      (fromMaybe, mapMaybe)
+import Data.Aeson.Types (FromJSON)
+import GHC.Generics     (Generic)
+import Data.Binary      (Binary)
+import Data.Functor     ((<&>))
+import Control.Monad    (forM_, when)
+import Data.Sort        (sort)
+import Data.String      (fromString)
+import Data.Text        (Text)
+import Data.Maybe       (fromMaybe, mapMaybe)
 import System.FilePath
-import Lucid           (Html)
+import Lucid            (Html)
diff --git a/src/Main.hs b/src/Main.hs
index 061837c..7cef20f 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -5,10 +5,11 @@ import Lucid
 
 import Common
 import Templates
+import Config (config, ropts, wopts, SiteConfig(title))
+
 import qualified Posts
 import qualified Projects
 import qualified Visual
-import Config (config, ropts, wopts, SiteConfig(title))
 
 
 main :: IO ()
diff --git a/src/Page.hs b/src/Page.hs
deleted file mode 100644
index 1fe1667..0000000
--- a/src/Page.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-{-# LANGUAGE DeriveGeneric #-}
-
-module Page where
-
-import GHC.Generics
-import Data.Aeson.Types (FromJSON)
-
-data Page = Page
-    { title  :: String
-    , draft  :: Maybe Bool
-    } deriving (Generic, Eq, Show)
-
-instance FromJSON Page
diff --git a/src/Posts.hs b/src/Posts.hs
index 51c9bc5..d88abcb 100644
--- a/src/Posts.hs
+++ b/src/Posts.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE DeriveGeneric #-}
-
 module Posts (build) where
 
 import Data.Aeson.Types (FromJSON)
@@ -24,7 +22,7 @@ data PostMeta = PostMeta
     { title       :: Text
     , draft       :: Maybe Bool
     , description :: Maybe Text
-    } deriving (Generic, Eq, Show)
+    } deriving (Generic, Eq, Show, FromJSON)
 
 data Post = Post
     { postTitle       :: Text
@@ -33,14 +31,9 @@ data Post = Post
     , postDescription :: Maybe Text
     , postContent     :: Text
     , postPath        :: FilePath
-    } deriving (Generic, Eq, Show)
+    } deriving (Generic, Eq, Show, Binary)
 
-instance FromJSON PostMeta
 instance IsTimestamped Post where timestamp = postDate
-instance Binary Post where
-    put (Post t d dr desc content path) =
-        put t >> put d >> put dr >> put desc >> put content >> put path
-    get = Post <$> get <*> get <*> get <*> get <*> get <*> get
 
 
 buildPost :: Recipe IO FilePath Post
diff --git a/src/Projects.hs b/src/Projects.hs
index 9260231..f3d7658 100644
--- a/src/Projects.hs
+++ b/src/Projects.hs
@@ -4,7 +4,6 @@ import Data.Char        (digitToInt)
 
 import Common
 import Types
-import Page
 import Config
 import Templates
 import Lucid
diff --git a/src/Types.hs b/src/Types.hs
index 33b9294..9cb8eca 100644
--- a/src/Types.hs
+++ b/src/Types.hs
@@ -1,16 +1,11 @@
-{-# LANGUAGE DeriveGeneric         #-}
 {-# LANGUAGE DuplicateRecordFields #-}
 
 module Types where
 
-import GHC.Generics
-import Data.Aeson.Types (FromJSON)
-import Data.Binary (Binary, put, get)
 import Data.Time.LocalTime (ZonedTime)
 import Data.Binary.Instances.Time ()
-import Data.Text   (Text)
 import qualified Data.Map.Strict as Map
-
+import Common
 
 -- | Full project description
 data Project = Project 
@@ -19,13 +14,13 @@ data Project = Project
     , year     :: String
     , labels   :: Map.Map String String
     , gallery  :: Maybe Bool
-    } deriving (Generic, Eq, Show)
+    } deriving (Generic, Eq, Show, FromJSON, Binary)
 
 
 data TitledPage = TitledPage
     { title       :: String
     , description :: Maybe String
-    } deriving (Generic, Eq, Show)
+    } deriving (Generic, Eq, Show, FromJSON, Binary)
 
 
 -- | Book description for the readings page
@@ -34,16 +29,4 @@ data Book = Book
     , author    :: Text
     , rating    :: Maybe Int
     , completed :: Maybe ZonedTime
-    } deriving (Generic, Show)
-
-instance FromJSON Project
-instance FromJSON TitledPage
-instance FromJSON Book
-
-instance Binary Project where
-    put (Project t s y l g) = put t >> put s >> put y >> put l >> put g
-    get = Project <$> get <*> get <*> get <*> get <*> get
-
-instance Binary Book where
-    put (Book t a r c) = put t >> put a >> put r >> put c
-    get = Book <$> get <*> get <*> get <*> get
+    } deriving (Generic, Show, FromJSON)