blob: 43c16f9b9deea086a38986b9cf73b66c8a456ca9 (
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
|
