@@ -60,7 +60,7 @@ Not all terminals support this.
6060-}
6161dark : String -> String
6262dark str =
63- String . join " " [ " \u{001B}[2m" , str, " \u{001B}[22m" ]
63+ " \u{001B}[2m" ++ str ++ " \u{001B}[22m"
6464
6565
6666{- | Make the text bold.
@@ -80,7 +80,7 @@ Some terminals implement this as a color change rather than a boldness change.
8080-}
8181bold : String -> String
8282bold str =
83- String . join " " [ " \u{001B}[1m" , str, " \u{001B}[22m" ]
83+ " \u{001B}[1m" ++ str ++ " \u{001B}[22m"
8484
8585
8686{- | Make the text underlined.
@@ -100,14 +100,14 @@ Not all terminals support this.
100100-}
101101underline : String -> String
102102underline str =
103- String . join " " [ " \u{001B}[4m" , str, " \u{001B}[24m" ]
103+ " \u{001B}[4m" ++ str ++ " \u{001B}[24m"
104104
105105
106106{- | Invert the foreground and background colors from what they would otherwise be.
107107-}
108108colorsInverted : String -> String
109109colorsInverted str =
110- String . join " " [ " \u{001B}[7m" , str, " \u{001B}[27m" ]
110+ " \u{001B}[7m" ++ str ++ " \u{001B}[27m"
111111
112112
113113
@@ -118,56 +118,56 @@ colorsInverted str =
118118-}
119119black : String -> String
120120black str =
121- String . join " " [ " \u{001B}[30m" , str, " \u{001B}[39m" ]
121+ " \u{001B}[30m" ++ str ++ " \u{001B}[39m"
122122
123123
124124{- | Make the foreground text red.
125125-}
126126red : String -> String
127127red str =
128- String . join " " [ " \u{001B}[31m" , str, " \u{001B}[39m" ]
128+ " \u{001B}[31m" ++ str ++ " \u{001B}[39m"
129129
130130
131131{- | Make the foreground text green.
132132-}
133133green : String -> String
134134green str =
135- String . join " " [ " \u{001B}[32m" , str, " \u{001B}[39m" ]
135+ " \u{001B}[32m" ++ str ++ " \u{001B}[39m"
136136
137137
138138{- | Make the foreground text yellow.
139139-}
140140yellow : String -> String
141141yellow str =
142- String . join " " [ " \u{001B}[33m" , str, " \u{001B}[39m" ]
142+ " \u{001B}[33m" ++ str ++ " \u{001B}[39m"
143143
144144
145145{- | Make the foreground text blue.
146146-}
147147blue : String -> String
148148blue str =
149- String . join " " [ " \u{001B}[34m" , str, " \u{001B}[39m" ]
149+ " \u{001B}[34m" ++ str ++ " \u{001B}[39m"
150150
151151
152152{- | Make the foreground text magenta.
153153-}
154154magenta : String -> String
155155magenta str =
156- String . join " " [ " \u{001B}[35m" , str, " \u{001B}[39m" ]
156+ " \u{001B}[35m" ++ str ++ " \u{001B}[39m"
157157
158158
159159{- | Make the foreground text cyan.
160160-}
161161cyan : String -> String
162162cyan str =
163- String . join " " [ " \u{001B}[36m" , str, " \u{001B}[39m" ]
163+ " \u{001B}[36m" ++ str ++ " \u{001B}[39m"
164164
165165
166166{- | Make the foreground text white.
167167-}
168168white : String -> String
169169white str =
170- String . join " " [ " \u{001B}[37m" , str, " \u{001B}[39m" ]
170+ " \u{001B}[37m" ++ str ++ " \u{001B}[39m"
171171
172172
173173
@@ -178,53 +178,53 @@ white str =
178178-}
179179bgBlack : String -> String
180180bgBlack str =
181- String . join " " [ " \u{001B}[40m" , str, " \u{001B}[49m" ]
181+ " \u{001B}[40m" ++ str ++ " \u{001B}[49m"
182182
183183
184184{- | Make the background red.
185185-}
186186bgRed : String -> String
187187bgRed str =
188- String . join " " [ " \u{001B}[41m" , str, " \u{001B}[49m" ]
188+ " \u{001B}[41m" ++ str ++ " \u{001B}[49m"
189189
190190
191191{- | Make the background green.
192192-}
193193bgGreen : String -> String
194194bgGreen str =
195- String . join " " [ " \u{001B}[42m" , str, " \u{001B}[49m" ]
195+ " \u{001B}[42m" ++ str ++ " \u{001B}[49m"
196196
197197
198198{- | Make the background yellow.
199199-}
200200bgYellow : String -> String
201201bgYellow str =
202- String . join " " [ " \u{001B}[43m" , str, " \u{001B}[49m" ]
202+ " \u{001B}[43m" ++ str ++ " \u{001B}[49m"
203203
204204
205205{- | Make the background blue.
206206-}
207207bgBlue : String -> String
208208bgBlue str =
209- String . join " " [ " \u{001B}[44m" , str, " \u{001B}[49m" ]
209+ " \u{001B}[44m" ++ str ++ " \u{001B}[49m"
210210
211211
212212{- | Make the background magenta.
213213-}
214214bgMagenta : String -> String
215215bgMagenta str =
216- String . join " " [ " \u{001B}[45m" , str, " \u{001B}[49m" ]
216+ " \u{001B}[45m" ++ str ++ " \u{001B}[49m"
217217
218218
219219{- | Make the background cyan.
220220-}
221221bgCyan : String -> String
222222bgCyan str =
223- String . join " " [ " \u{001B}[46m" , str, " \u{001B}[49m" ]
223+ " \u{001B}[46m" ++ str ++ " \u{001B}[49m"
224224
225225
226226{- | Make the background white.
227227-}
228228bgWhite : String -> String
229229bgWhite str =
230- String . join " " [ " \u{001B}[47m" , str, " \u{001B}[49m" ]
230+ " \u{001B}[47m" ++ str ++ " \u{001B}[49m"
0 commit comments