File tree Expand file tree Collapse file tree 3 files changed +1
-4
lines changed Expand file tree Collapse file tree 3 files changed +1
-4
lines changed Original file line number Diff line number Diff line change @@ -122,7 +122,6 @@ library
122
122
, strict-stm
123
123
, swagger2
124
124
, text
125
- , text-ansi
126
125
, time
127
126
, transformers
128
127
, transformers-except
Original file line number Diff line number Diff line change @@ -184,7 +184,6 @@ library
184
184
, strict-stm
185
185
, swagger2
186
186
, text
187
- , text-ansi
188
187
, time
189
188
, transformers
190
189
, transformers-except
Original file line number Diff line number Diff line change @@ -58,7 +58,6 @@ import qualified Data.List as List
58
58
import qualified Data.Map.Strict as Map
59
59
import qualified Data.Strict.Maybe as Strict
60
60
import qualified Data.Text as Text
61
- import Text.ANSI (red )
62
61
import qualified Data.Text.Encoding as Text
63
62
import qualified Data.Text.IO as Text
64
63
import qualified Data.Time.Clock as Time
@@ -159,7 +158,7 @@ panicAbort :: Text -> IO ()
159
158
panicAbort msg = do
160
159
whenM readAbortOnPanic $ do
161
160
threadDelay 100000 -- 0.1 seconds
162
- mapM_ ( Text. putStrLn . red) [ " panic abort:" , msg ]
161
+ mapM_ Text. putStrLn [ " panic abort:" , msg ]
163
162
exitImmediately (ExitFailure 1 )
164
163
165
164
logAndPanic :: Trace IO Text -> Text -> IO ()
You can’t perform that action at this time.
0 commit comments