{-# OPTIONS_GHC -Wno-orphans #-}
module GHC.Debugger.View.Text where

import GHC.Debugger.View.Class

import qualified Data.Text          as T

instance DebugView T.Text where
  debugValue :: Text -> VarValue
debugValue  Text
t = String -> Bool -> VarValue
VarValue (String -> String
forall a. Show a => a -> String
show (Text -> String
T.unpack Text
t)) Bool
False
  debugFields :: Text -> VarFields
debugFields Text
_ = [(String, VarFieldValue)] -> VarFields
VarFields []