Rockingcool/md-to-html
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added pragmas to suppress LSP warnings; removed a random line that was

Browse Source 
added by the LSP
This commit is contained in:
Aadhavan Srinivasan
2025-05-09 23:13:31 -05:00
parent ef1809970b
commit e8eb22f3ae
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/MdToHTML.hs
View File

@@ -1,4 +1,6 @@
{-# LANGUAGE InstanceSigs #-} {-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
{-# HLINT ignore "Use lambda-case" #-}
module MdToHTML where module MdToHTML where
@@ -40,7 +42,6 @@ data MdToken
-- Deriving Show for MdToken -- Deriving Show for MdToken
instance Show MdToken where instance Show MdToken where
show :: MdToken -> String
show (Document tokens) = concatMap show tokens show (Document tokens) = concatMap show tokens
show (Header level token) = "<h" ++ show level ++ ">" ++ show token ++ "</h" ++ show level ++ ">" show (Header level token) = "<h" ++ show level ++ ">" ++ show token ++ "</h" ++ show level ++ ">"
show (Para token) = "<p>" ++ show token ++ "</p>" show (Para token) = "<p>" ++ show token ++ "</p>"