'mappend`

Question

के बिना दो डेटा.Texts में शामिल होने का मानक तरीका मुझे लगता है कि Data.Text भविष्य में Haskell संस्करणों में String एस को प्रतिस्थापित करने जा रहा है। मेरे पास एक मुद्दा यह है कि (++) केवल सूचियों के लिए परिभाषित किया गया है। दो Text रों श्रेणीबद्ध करने के लिए, मैं

text1 `mappend` text2 

कौन सा जल्दी वर्बोस हो जाता है प्रयोग करना होगा। आदर्श रूप से मैं इन Text एस पर ++ का उपयोग करने में सक्षम होना चाहता हूं, लेकिन यदि नहीं, तो दूसरा विकल्प क्या है? मैं अपना खुद का इंफिक्स ऑपरेटर परिभाषित कर सकता हूं, लेकिन मुझे ऐसा करने का एक मानक तरीका चाहिए।

Answer 1

जीएचसी 7.4 से (सुनिश्चित नहीं है कि कौन सा बिंदु संस्करण) एक पूर्वनिर्धारित <> ऑपरेटर है जो mappend जैसा ही काम करता है। तो तुम

text1 <> text2 

ताकि "मानक" इन्फ़िक्स ऑपरेटर का कहना है कि कर सकेंगे, लेकिन यह हर जगह अभी तक उपलब्ध नहीं है।

Answer 2

सभी प्रकार के मोनोइड्स के लिए बस mconcat का उपयोग करें। आपको कुछ भी आयात करने की आवश्यकता नहीं है, और कोड इसके साथ बहुत साफ दिखता है।

उदाहरण:

{-# LANGUAGE OverloadedStrings #-} 

import   Data.Text 

table :: Text 
table = "user" 

fields :: [Text] 
fields = ["id","nickname","password","date","posts","comments"] 

insertquery :: Text -> [Text] -> Text 
insertquery table fields = mconcat 
    ["insert into ",table," (",names,") values (",vals,");"] 
    where 
    names = insertcomma fields 
    vals = insertcomma [singleton '?' | _ <- fields] 
    insertcomma = intercalate (singleton ',') 

और परिणाम यह देता है:

λ> insertquery तालिका क्षेत्रों

"उपयोगकर्ता (आईडी, उपनाम, पासवर्ड, तिथि, पोस्ट, टिप्पणियों में डालने) मान (?,?,?,?,?,?); "