blob: 12be65aaf05acbc6f8976ecf3d2f9a7d8dff45c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{-# LANGUAGE DeriveGeneric #-}
module Common.Model.InitResult
( InitResult(..)
) where
import Data.Aeson (FromJSON, ToJSON)
import Data.Text (Text)
import GHC.Generics (Generic)
import Common.Model.Init (Init)
data InitResult =
InitSuccess Init
| InitEmpty (Either Text (Maybe Text))
deriving (Show, Generic)
instance FromJSON InitResult
instance ToJSON InitResult
|