Tiedoston luku aloitettu

src/Main.hs

@@ -2,8 +2,14 @@ module Main (main) where
 
 import qualified Data.Time.Calendar
 import qualified Data.Time.Clock
+import qualified Data.Aeson
 
--- Tekijät
+--Tiedoston luku/kirjoitus ---------------------------------------------------------
+tiedostonLuku :: FromJSON a => ByteString -> Maybe a
+
+tiedostoonKirjoitus :: ToJSON a => a -> ByteString
+
+-- Tekijät ----------------------------------------------------------------------------
 --  Nimimerkit
 --  (Väri tms. tunniste)
 data Tekija = Tekija { id :: Int , nimi :: String } deriving (Show)
@@ -11,7 +17,7 @@ data Tekija = Tekija { id :: Int , nimi :: String } deriving (Show)
 --tekijat :: [(String, Int)]
 --tekijat = [("Maija", 1), ("Matti", 2)]
 
--- Askareet
+-- Askareet ----------------------------------------------------------------------------------
 --  Homman nimi
 --  Tärkeys
 --  Toistuvuus 0:ei koskaan, 1:kerran viikossa 2:joka toinen viikko 3:kerran kuussa
@@ -20,14 +26,14 @@ data Askare = Askare { askare :: String
                      , tarkea :: Bool
                      , toistuvuus :: Int
                      , vakioTekija :: Tekija
-                     } deriving (Show)
+                     } deriving (Generic, Show)
 
 --askareet :: [(String, Bool, Int, Int)]
 --askareet = [("Imurointi", false, 1, 1)
 --  , ("Vuokran maksu", true, 3, 2)
 --  ]
 
--- SuoritettavatAskareet
+-- Tehtävät --------------------------------------------------------------------------------------
 --  Mikä askare
 --  Päivämäärä
 --  Onko tehty
@@ -39,7 +45,7 @@ data Tehtava = Tehtava { homma :: Askare
                        , tehty :: Bool
                        , tekija :: Tekija
                        , tehtava :: String
-                       } deriving (Show)
+                       } deriving (Generic, Show)
 
 --tehtavat :: [Data.Time.Calendar.Day, String, Bool, Int, String]
 --tehtavat = [(pvm 2022 9 25, "Imurointi", false, 1, "Perusteellinen imurointi")