haga/lambda/lib/LambdaDatasets/NurseryDefinition.hs

41 lines
1.6 KiB
Haskell
Raw Permalink Normal View History

2024-04-22 14:33:40 +02:00
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE NoImplicitPrelude #-}
module LambdaDatasets.NurseryDefinition
( module LambdaDatasets.NurseryDefinition,
module CommonDefinition,
) where
import Protolude
import CommonDefinition
data NurseryClass = NotRecommend | Recommend | VeryRecommend | Priority | SpecPriority deriving (Eq, Generic, Show, Enum, Bounded, Ord)
2024-05-07 14:58:00 +02:00
instance Hashable NurseryClass
2024-04-22 14:33:40 +02:00
data Parents = Usual | Pretentious | GreatPret deriving (Eq, Generic, Show, Enum, Bounded, Ord)
2024-05-07 14:58:00 +02:00
instance Hashable Parents
2024-04-22 14:33:40 +02:00
data HasNurs = ProperNurs | LessProperNurs | ImproperNurs | CriticalNurs | VeryCritNurs deriving (Eq, Generic, Show, Enum, Bounded, Ord)
2024-05-07 14:58:00 +02:00
instance Hashable HasNurs
2024-04-22 14:33:40 +02:00
data Form = CompleteFamilyForm | CompletedFamilyForm | IncompleteFamilyForm | FosterFamilyForm deriving (Eq, Generic, Show, Enum, Bounded, Ord)
2024-05-07 14:58:00 +02:00
instance Hashable Form
2024-04-22 14:33:40 +02:00
data Children = OneChild | TwoChilds | ThreeChilds | MoreChilds deriving (Eq, Generic, Show, Enum, Bounded, Ord)
2024-05-07 14:58:00 +02:00
instance Hashable Children
2024-04-22 14:33:40 +02:00
data Housing = ConvenientHousing | LessConvHousing | CriticalHousing deriving (Eq, Generic, Show, Enum, Bounded, Ord)
2024-05-07 14:58:00 +02:00
instance Hashable Housing
2024-04-22 14:33:40 +02:00
data Finance = ConvenientFinance | InconvFinance deriving (Eq, Generic, Show, Enum, Bounded, Ord)
2024-05-07 14:58:00 +02:00
instance Hashable Finance
2024-04-22 14:33:40 +02:00
data Social = NotProblematicSocial | SlightlyProblematicSocial | ProblematicSocial deriving (Eq, Generic, Show, Enum, Bounded, Ord)
2024-05-07 14:58:00 +02:00
instance Hashable Social
2024-04-22 14:33:40 +02:00
data Health = NotRecommendHealth |RecommendedHealth | PriorityHealth deriving (Eq, Generic, Show, Enum, Bounded, Ord)
2024-05-07 14:58:00 +02:00
instance Hashable Health