diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs index 6408fb6..86557ce 100644 --- a/src/MdToHTML.hs +++ b/src/MdToHTML.hs @@ -1,4 +1,6 @@ -{-# LANGUAGE InstanceSigs #-} +{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-} + +{-# HLINT ignore "Use lambda-case" #-} module MdToHTML where @@ -40,7 +42,6 @@ data MdToken -- Deriving Show for MdToken instance Show MdToken where - show :: MdToken -> String show (Document tokens) = concatMap show tokens show (Header level token) = "" ++ show token ++ "" show (Para token) = "

" ++ show token ++ "

"