mirror of
https://github.com/joshuaclayton/unused.git
synced 2024-08-16 08:10:55 +03:00
Apply recommendations from hlint
What? ===== This updates the codebase to switch from data to newtype in certain cases.
This commit is contained in:
parent
cd1b840368
commit
b616704162
@ -17,7 +17,7 @@ newtype MD5ExecutablePath = MD5ExecutablePath
|
||||
|
||||
type MD5Config = ReaderT MD5ExecutablePath IO
|
||||
|
||||
data FingerprintOutcome =
|
||||
newtype FingerprintOutcome =
|
||||
MD5ExecutableNotFound [String]
|
||||
|
||||
sha :: IO (Either FingerprintOutcome String)
|
||||
|
@ -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)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user