Small changes.

jgm · Jan 7, 2025 · 5505469 · 5505469
1 parent 829eca4
commit 5505469
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/skylighting-format-typst/src/Skylighting/Format/Typst.hs b/skylighting-format-typst/src/Skylighting/Format/Typst.hs
@@ -14,6 +14,7 @@ import Data.Text (Text)
 import qualified Data.Text as Text
 import Skylighting.Types
 import qualified Data.Map as M
+import Data.Maybe (fromMaybe)
 #if !MIN_VERSION_base(4,11,0)
 import Data.Semigroup
 #endif
@@ -86,9 +87,7 @@ macrodef :: Maybe Color -> [(TokenType, TokenStyle)] -> TokenType -> Text
 macrodef defaultcol tokstyles' tokt =
   "#let " <> Text.pack (show tokt) <> "(s) = " <> (ul . bg . textstyle) ("raw(s)")
  where tokstyles = M.fromList tokstyles'
-       tokf = case M.lookup tokt tokstyles of
-                    Nothing -> defStyle
-                    Just x  -> x
+       tokf = fromMaybe defStyle $ M.lookup tokt tokstyles
        ul x = if tokenUnderline tokf
                  then "underline(" <> x <> ")"
                  else x