Showing 3 of 3 total issues
Use <$> Open
Open
generateCorrelationId = do
uuid <- newUUID
return $ UUID.toText uuid
- Read upRead up
- Exclude checks
Found
do uuid <- newUUID
return $ UUID.toText uuid
Perhaps
do UUID.toText <$> newUUID
Redundant bracket Open
Open
if (ResultType.fromText msgType) == ResultType.Success then
- Read upRead up
- Exclude checks
Found
(ResultType.fromText msgType) == ResultType.Success
Perhaps
ResultType.fromText msgType == ResultType.Success
Use newtype instead of data Open
Open
data EchoRequest = EchoRequest {
message :: String
} deriving (Generic, Show)
- Read upRead up
- Exclude checks
Found
data EchoRequest
= EchoRequest {message :: String}
deriving (Generic, Show)
Perhaps
newtype EchoRequest
= EchoRequest {message :: String}
deriving (Generic, Show)
Applying this change:
- decreases laziness