remove: redundant match on crkToFrk

Author: sloorush

plugins/hls-code-range-plugin/src/Ide/Plugin/CodeRange.hs

@@ -171,9 +171,7 @@ createFoldingRange (CodeRange (Range (Position lineStart charStart) (Position li
     -- because it is already single line, so omiting it.
     if lineStart == lineEnd
         then Nothing
-    else case frk of
-        Just _  -> Just (FoldingRange lineStart (Just charStart) lineEnd (Just charEnd) frk)
-        Nothing -> Nothing
+    else Just (FoldingRange lineStart (Just charStart) lineEnd (Just charEnd) (Just frk))
 
 -- | Removes all small foldings that start from the same line.
 --

plugins/hls-code-range-plugin/src/Ide/Plugin/CodeRange/Rules.hs

@@ -193,9 +193,8 @@ handleError recorder action' = do
         Right value -> pure $ toIdeResult (Right value)
 
 -- | Maps type CodeRangeKind to FoldingRangeKind
-crkToFrk :: CodeRangeKind -> Maybe FoldingRangeKind
+crkToFrk :: CodeRangeKind -> FoldingRangeKind
 crkToFrk crk = case crk of
-        CodeKindComment -> Just FoldingRangeComment
-        CodeKindImports -> Just FoldingRangeImports
-        CodeKindRegion  -> Just FoldingRangeRegion
-        _               -> Nothing
+        CodeKindComment -> FoldingRangeComment
+        CodeKindImports -> FoldingRangeImports
+        CodeKindRegion  -> FoldingRangeRegion