src/Handler/Output.hs
Use newtype instead of data Open
Open
data OutputRequest = OutputRequest
{ reqContent :: Text
}
- Read upRead up
- Exclude checks
Found
data OutputRequest = OutputRequest {reqContent :: Text}
Perhaps
newtype OutputRequest = OutputRequest {reqContent :: Text}
Applying this change:
- decreases laziness