chore: drop tree-grepper

Regresses in that we only support Haskell for now, as Elm, Nix or Bash
are not available as tree-sitter-* Haskell packages.

1 files changed, 0 insertions, 75 deletions

diff --git a/app/TreeGrepper/FileType.hs b/app/TreeGrepper/FileType.hs
deleted file mode 100644
index 506cbc5..0000000
--- a/app/TreeGrepper/FileType.hs
+++ /dev/null
@@ -1,75 +0,0 @@
-module TreeGrepper.FileType
-  ( FileType (..),
-    all,
-    Info (..),
-    BlockInfo (..),
-    info,
-  )
-where
-
-import Data.Aeson (FromJSON (parseJSON))
-import Data.Binary (Binary)
-import Data.Text (Text)
-import GHC.Generics (Generic)
-import Prelude hiding (all)
-
-data FileType
-  = Elm
-  | Haskell
-  | Nix
-  | Shell
-  deriving (Eq, Show, Generic, Binary)
-
-instance FromJSON FileType where
-  parseJSON v =
-    parseJSON v >>= \case
-      "elm" -> pure Elm
-      "haskell" -> pure Haskell
-      "nix" -> pure Nix
-      "sh" -> pure Shell
-      fileType -> fail ("parsing file_type failed, got " ++ fileType)
-
-all :: [FileType]
-all =
-  [ Elm,
-    Haskell,
-    Nix,
-    Shell
-  ]
-
-data Info = Info
-  { exts :: [String],
-    lineStart :: Text,
-    block :: Maybe BlockInfo
-  }
-
-data BlockInfo = BlockInfo
-  { blockStart :: [Text],
-    blockEnd :: Text
-  }
-
-info :: FileType -> Info
-info Elm =
-  Info
-    { exts = [".elm"],
-      lineStart = "--",
-      block = Just BlockInfo {blockStart = ["{-|", "{-"], blockEnd = "-}"}
-    }
-info Haskell =
-  Info
-    { exts = [".hs"],
-      lineStart = "--",
-      block = Just BlockInfo {blockStart = ["{-"], blockEnd = "-}"}
-    }
-info Nix =
-  Info
-    { exts = [".nix"],
-      lineStart = "#",
-      block = Just BlockInfo {blockStart = ["/*"], blockEnd = "*/"}
-    }
-info Shell =
-  Info
-    { exts = [".sh"],
-      lineStart = "#",
-      block = Nothing
-    }