Use a newtype

pepeiborra · pepeiborra · commit 35822037541e · 2021-02-24T09:20:02.000Z
diff --git a/ghcide/src/Development/IDE/Core/RuleTypes.hs b/ghcide/src/Development/IDE/Core/RuleTypes.hs
@@ -250,7 +250,7 @@ type instance RuleResult GetModIfaceWithoutLinkable = HiFileResult
 type instance RuleResult GetFileContents = (FileVersion, Maybe Text)
 
 -- The Shake key type for getModificationTime queries
-data GetModificationTime = GetModificationTime_
+newtype GetModificationTime = GetModificationTime_
     { missingFileDiagnostics :: Bool
       -- ^ If false, missing file diagnostics are not reported
     }

Original file line number	Diff line number	Diff line change
`@@ -250,7 +250,7 @@ type instance RuleResult GetModIfaceWithoutLinkable = HiFileResult`
`250`	`250`	`type instance RuleResult GetFileContents = (FileVersion, Maybe Text)`
`251`	`251`
`252`	`252`	`-- The Shake key type for getModificationTime queries`
`253`		`-data GetModificationTime = GetModificationTime_`
	`253`	`+newtype GetModificationTime = GetModificationTime_`
`254`	`254`	`{ missingFileDiagnostics :: Bool`
`255`	`255`	`-- ^ If false, missing file diagnostics are not reported`
`256`	`256`	`}`