मैं बहुत मासूम दिखने कोडTypeFamilies या GADTs अचानक मान्य कोड
data Config = Config
{ cInts :: [Int]
, cStrings :: [String] }
instance Semigroup Config where
c1 <> c2 = Config
{ cInts = andCombiner cInts
, cStrings = andCombiner cStrings }
where
andCombiner field = field c1 <> field c2
यह कम्पाइल और ठीक काम करता है टूट जाता है। लेकिन अगर मैं TypeFamilies
जोड़ सकते हैं या GADTs
विस्तार मैं बहुत अजीब त्रुटि देखें:
.../Main.hs:19:22: error:
• Couldn't match type ‘Int’ with ‘[Char]’
Expected type: [String]
Actual type: [Int]
• In the ‘cStrings’ field of a record
In the expression:
Config {cInts = andCombiner cInts, cStrings = andCombiner cStrings}
In an equation for ‘<>’:
c1 <> c2
= Config
{cInts = andCombiner cInts, cStrings = andCombiner cStrings}
where
andCombiner field = field c1 <> field c2
|
19 | , cStrings = andCombiner cStrings }
| ^^^^^^^^^^^^^^^^^^^^
.../Main.hs:19:34: error:
• Couldn't match type ‘[Char]’ with ‘Int’
Expected type: Config -> [Int]
Actual type: Config -> [String]
• In the first argument of ‘andCombiner’, namely ‘cStrings’
In the ‘cStrings’ field of a record
In the expression:
Config {cInts = andCombiner cInts, cStrings = andCombiner cStrings}
|
19 | , cStrings = andCombiner cStrings }
| ^^^^^^^^
क्या इस संकलक त्रुटि के लिए कारण हो सकता है?
क्या आपका मतलब है '-XMooLocalBinds' * बंद *,' -XNoMonoLocalBinds' के साथ? – HTNW
@ एचटीएनडब्ल्यू हाँ, बहुत बहुत धन्यवाद! – Alec