क्या डेटा के लिए शो टाइपक्लास के बराबर है। टेक्स्ट?

Question

हर कोई Show जानता है। लेकिन इसके बारे में:

class ShowText a where 
    showText :: a -> Text 

मुझे यह कहीं भी नहीं मिल रहा है। क्यूं कर? ।

showText :: Show a => a -> Text 
showText = pack . show 

Answer 1

लाइब्रेरी text-show अब मौजूद है और वास्तव में यह समस्या हल करती है।

अद्यतन (2016 12 फ़र,)

basic-prelude पुस्तकालय में उपलब्ध कराई गई show समारोह भी सीधे पाठ करने के लिए प्रस्तुत करता है:

show :: Show a => a -> Text 

basic-prelude भी text-show से कम निर्भरता है। आप basic-prelude उपयोग करना चाहते हैं, अपने आप को संकलन सिर दर्द को बचाने के अपने स्रोत फ़ाइल के शीर्ष करने के लिए निम्न जोड़कर:

{-# LANGUAGE NoImplicitPrelude #-} 

Answer 2

यह अपने खुद के समारोह Show बंद पिगीबैकिंग लिखने के लिए तुच्छ है बिल्डर योजना के साथ बेहतर प्रदर्शन करें और Data.Text.Lazy का उपयोग करें। डैन डोल इसे बाइटस्टिंग-शो में करता है, लेकिन मुझे टेक्स्ट के समकक्ष के बारे में पता नहीं है।

Answer 3

पाठ सीधे बनाने यदि आप अब भी यह भरने से पहले सख्त पाठ ब्लॉक का कुल आकार पता करने की जरूरत है के साथ समस्या यह आप कर सकते हैं:

Answer 4

Int मूल्यों के विशेष मामले के लिए, यहाँ उन्हें एक मध्यवर्ती चरण में Strings का उपयोग किए बिना सख्त Text मूल्यों में परिवर्तित करने के कोड है:

import Data.Text 
import Data.Text.Lazy (toStrict) 
import Data.Text.Lazy.Builder (toLazyText) 
import Data.Text.Lazy.Builder.Int (decimal) 

showIntegral :: Integral a => a -> T.Text 
showIntegral = toStrict. toLazyText . decimal 

मॉड्यूल Data.Text.Lazy.Builder.RealFloat चल बिन्दु मूल्यों के लिए इसी तरह की सुविधा प्रदान करता है।

import Data.Text 
import Data.Text.Lazy (toStrict) 
import Data.Text.Lazy.Builder (toLazyText) 
import Data.Text.Lazy.Builder.Int (decimal) 
import Data.Text.Lazy.Builder.RealFloat (realFloat) 

class ShowText a where 
    showText :: a -> Text 

instance ShowText Int where 
    showText = toStrict . toLazyText . decimal 

instance ShowText Float where 
    showText = toStrict . toLazyText . realFloat 

फिर हम अधिक उदाहरणों को जोड़कर शुरू कर सकते हैं (tuples के लिए एक उदाहरण के लिए उपयोगी होगा):

इन के साथ हम Show typeclass के हमारे अपने संस्करण परिभाषित कर सकते हैं।

Answer 5

basic-prelude और classy-prelude दोनों में अब एक tshow समारोह है।

tshow :: Show a => a -> Text 

आप मानक प्रस्तावना उपयोग कर रहे हैं, text-show library प्रयास करें।