24 lines
309 B
Markdown
24 lines
309 B
Markdown
|
```haskell
|
||
|
|
{-# LANGUAGE DeriveGeneric #-}
|
||
|
|
|
||
|
|
module Types where
|
||
|
|
|
||
|
|
import Data.Aeson
|
||
|
|
import GHC.Generics
|
||
|
|
import Prelude hiding (id)
|
||
|
|
```
|
||
|
|
|
||
|
|
App
|
||
|
|
---
|
||
|
|
|
||
|
|
1:1 with a Heroku app.
|
||
|
|
|
||
|
|
```haskell
|
||
|
|
data App = App
|
||
|
|
{ id :: String
|
||
|
|
} deriving (Generic, Eq, Show, Read)
|
||
|
|
|
||
|
|
instance ToJSON App
|
||
|
|
instance FromJSON App
|
||
|
|
```
|