@@ -3,7 +3,6 @@
33{-# LANGUAGE LambdaCase #-}
44{-# LANGUAGE OverloadedStrings #-}
55{-# LANGUAGE RecordWildCards #-}
6−{-# LANGUAGE ViewPatterns #-}
76
87-- |
98-- Module : Network.Google.Internal.Logger
@@ -66,22 +65,6 @@ data LogLevel
6665 | Trace -- ^ Includes potentially credentials metadata, and non-streaming response bodies.
6766 deriving (Eq, Ord, Enum, Show, Data, Typeable)
6867
69−instance FromText LogLevel where
70− fromText (Text.toLower -> t) =
71− case t of
72− "info" -> Just Info
73− "error" -> Just Error
74− "debug" -> Just Debug
75− "trace" -> Just Trace
76− _ -> Nothing
77−
78−instance ToText LogLevel where
79− toText = \case
80− Info -> "info"
81− Error -> "error"
82− Debug -> "debug"
83− Trace -> "trace"
84−
8568-- | This is a primitive logger which can be used to log builds to a 'Handle'.
8669--
8770-- /Note:/ A more sophisticated logging library such as