Skip to content

Commit 15c109b

Browse files
committed
Remove unnecessary parameters on functions (fix warning).
1 parent 5161865 commit 15c109b

File tree

1 file changed

+11
-11
lines changed
  • skylighting-format-typst/src/Skylighting/Format

1 file changed

+11
-11
lines changed

skylighting-format-typst/src/Skylighting/Format/Typst.hs

+11-11
Original file line numberDiff line numberDiff line change
@@ -99,14 +99,14 @@ macrodef defaultcol tokstyles' tokt =
9999
bg x = case tokenBackground tokf of
100100
Nothing -> x
101101
Just _c -> x -- TODO?
102-
textstyle x = "text(" <> bf x <> it x <> co x <> x <> ")"
103-
it x = if tokenItalic tokf
104-
then "style: \"italic\","
105-
else ""
106-
bf x = if tokenBold tokf
107-
then "weight: \"bold\","
108-
else ""
109-
co x = case tokenColor tokf `mplus` defaultcol of
110-
Just c -> "fill: rgb(" <>
111-
Text.pack (show (fromColor c :: String)) <> "),"
112-
Nothing -> ""
102+
textstyle x = "text(" <> bf <> it <> co <> x <> ")"
103+
it = if tokenItalic tokf
104+
then "style: \"italic\","
105+
else ""
106+
bf = if tokenBold tokf
107+
then "weight: \"bold\","
108+
else ""
109+
co = case tokenColor tokf `mplus` defaultcol of
110+
Just c -> "fill: rgb(" <>
111+
Text.pack (show (fromColor c :: String)) <> "),"
112+
Nothing -> ""

0 commit comments

Comments
 (0)