cleanup

Author: soulomoon

plugins/hls-semantic-tokens-plugin/src/Ide/Plugin/SemanticTokens/Tokenize.hs

@@ -1,7 +1,5 @@
 {-# LANGUAGE OverloadedRecordDot #-}
 {-# LANGUAGE OverloadedStrings   #-}
-{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
-{-# HLINT ignore "Avoid restricted function" #-}
 
 module Ide.Plugin.SemanticTokens.Tokenize (computeRangeHsSemanticTokenTypeList) where
 
@@ -47,8 +45,6 @@ cacheLookup lk idt@(Right n) = do
       return hsSemanticTy
     Just x -> return x
 
-
-
 data PTokenState = PTokenState
   {
     rope                  :: !Rope -- the remains of rope we are working on
@@ -66,7 +62,6 @@ getSplitTokenText :: SplitResult -> Text
 getSplitTokenText (NoSplit (t, _))  = t
 getSplitTokenText (Split (t, _, _)) = t
 
-
 mkPTokenState :: VirtualFile -> PTokenState
 mkPTokenState vf =
   PTokenState
@@ -85,7 +80,6 @@ liftMaybeM p = do
   st <- get
   maybe (return mempty) (\(ans, st') -> put st' >> return ans) $ runStateT p st
 
-
 foldMapM :: (Monad m, Monoid b, Foldable t) => (a -> m b) -> t a -> m b
 foldMapM f ta = foldM (\b a -> mappend b <$> f a) mempty ta