mirror of
https://github.com/joshuaclayton/unused.git
synced 2024-10-26 13:19:58 +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
|
type MD5Config = ReaderT MD5ExecutablePath IO
|
||||||
|
|
||||||
data FingerprintOutcome =
|
newtype FingerprintOutcome =
|
||||||
MD5ExecutableNotFound [String]
|
MD5ExecutableNotFound [String]
|
||||||
|
|
||||||
sha :: IO (Either FingerprintOutcome String)
|
sha :: IO (Either FingerprintOutcome String)
|
||||||
|
@ -70,11 +70,11 @@ data Removal = Removal
|
|||||||
, rReason :: String
|
, rReason :: String
|
||||||
} deriving (Eq, Show)
|
} deriving (Eq, Show)
|
||||||
|
|
||||||
data GitContext = GitContext
|
newtype GitContext = GitContext
|
||||||
{ gcCommits :: [GitCommit]
|
{ gcCommits :: [GitCommit]
|
||||||
} deriving (Eq, Show)
|
} deriving (Eq, Show)
|
||||||
|
|
||||||
data GitCommit = GitCommit
|
newtype GitCommit = GitCommit
|
||||||
{ gcSha :: String
|
{ gcSha :: String
|
||||||
} deriving (Eq, Show)
|
} deriving (Eq, Show)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user