Use record syntax to improve readability

nirum-lang · Aug 29, 2017 · 4cf2c4f · 4cf2c4f
1 parent 5f16da7
commit 4cf2c4f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Nirum/Package/Metadata.hs b/src/Nirum/Package/Metadata.hs
@@ -97,7 +97,7 @@ deriving instance (Ord t, Target t) => Ord (Package t)
 deriving instance (Show t, Target t) => Show (Package t)
 
 packageTarget :: Target t => Package t -> t
-packageTarget Package { metadata = Metadata _ _ _ _ t } = t
+packageTarget Package { metadata = Metadata { target = t } } = t
 
 data Metadata t =
     Metadata { version :: SV.Version