Apply recommendations from hlint

What?
=====

This updates the codebase to switch from data to newtype in certain
cases.
This commit is contained in:
Joshua Clayton 2018-03-18 22:39:39 -04:00
parent cd1b840368
commit b616704162
No known key found for this signature in database
GPG Key ID: 5B6558F77E9A8118
2 changed files with 3 additions and 3 deletions

View File

@ -17,7 +17,7 @@ newtype MD5ExecutablePath = MD5ExecutablePath
type MD5Config = ReaderT MD5ExecutablePath IO
data FingerprintOutcome =
newtype FingerprintOutcome =
MD5ExecutableNotFound [String]
sha :: IO (Either FingerprintOutcome String)

View File

@ -70,11 +70,11 @@ data Removal = Removal
, rReason :: String
} deriving (Eq, Show)
data GitContext = GitContext
newtype GitContext = GitContext
{ gcCommits :: [GitCommit]
} deriving (Eq, Show)
data GitCommit = GitCommit
newtype GitCommit = GitCommit
{ gcSha :: String
} deriving (Eq, Show)