diff options
author | Alexander Foremny <aforemny@posteo.de> | 2023-10-14 14:27:26 +0200 |
---|---|---|
committer | Alexander Foremny <aforemny@posteo.de> | 2023-10-16 10:28:32 +0200 |
commit | cd2777c6287eab41728c5368c7980b6520d8a8ea (patch) | |
tree | e45d7911bc733dabde439e5d4cc5687bdec1d295 /app | |
parent | 42fc137f64aab9242aab9bdb2f5da0a6d892f09c (diff) |
refactor: add language extensions to Cabal file
Ditches `ghci` in favor of `cabal repl`.
Diffstat (limited to 'app')
-rw-r--r-- | app/History.hs | 4 | ||||
-rw-r--r-- | app/Issue.hs | 6 | ||||
-rw-r--r-- | app/Issue/Filter.hs | 4 | ||||
-rw-r--r-- | app/Issue/Tag.hs | 7 | ||||
-rw-r--r-- | app/Issue/Text.hs | 3 | ||||
-rw-r--r-- | app/Main.hs | 8 | ||||
-rw-r--r-- | app/TreeGrepper/FileType.hs | 3 | ||||
-rw-r--r-- | app/TreeGrepper/Match.hs | 5 |
8 files changed, 2 insertions, 38 deletions
diff --git a/app/History.hs b/app/History.hs index 14724b7..0e7465c 100644 --- a/app/History.hs +++ b/app/History.hs @@ -1,7 +1,3 @@ -{-# LANGUAGE DeriveAnyClass #-} -{-# LANGUAGE OverloadedRecordDot #-} -{-# LANGUAGE OverloadedStrings #-} - module History (getIssues, listIssues) where import Control.Exception (Exception, catch, handle, throw) diff --git a/app/Issue.hs b/app/Issue.hs index 256947b..f7895af 100644 --- a/app/Issue.hs +++ b/app/Issue.hs @@ -1,10 +1,4 @@ -{-# LANGUAGE BlockArguments #-} -{-# LANGUAGE DeriveAnyClass #-} -{-# LANGUAGE DisambiguateRecordFields #-} -{-# LANGUAGE OverloadedRecordDot #-} -{-# LANGUAGE OverloadedStrings #-} {-# OPTIONS_GHC -fno-warn-orphans #-} - module Issue (Issue (..), Provenance (..), fromMatch, id) where import Data.Binary (Binary, Put, get, put) diff --git a/app/Issue/Filter.hs b/app/Issue/Filter.hs index 717fa8d..90b75de 100644 --- a/app/Issue/Filter.hs +++ b/app/Issue/Filter.hs @@ -1,7 +1,3 @@ -{-# LANGUAGE OverloadedRecordDot #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ViewPatterns #-} - module Issue.Filter ( Filter, filterArg, diff --git a/app/Issue/Tag.hs b/app/Issue/Tag.hs index 7147cb1..9c0c98f 100644 --- a/app/Issue/Tag.hs +++ b/app/Issue/Tag.hs @@ -1,14 +1,9 @@ -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE ViewPatterns #-} -{-# LANGUAGE DeriveAnyClass #-} - module Issue.Tag (Tag (..), extractTags, internalTags) where +import Data.Binary (Binary) import Data.Maybe (catMaybes) import Data.Text (Text) import Data.Text qualified as T -import Data.Binary (Binary) import GHC.Generics (Generic) data Tag = Tag Text Text deriving (Show, Generic, Binary) diff --git a/app/Issue/Text.hs b/app/Issue/Text.hs index c8b97d7..7c81c91 100644 --- a/app/Issue/Text.hs +++ b/app/Issue/Text.hs @@ -1,6 +1,3 @@ -{-# LANGUAGE OverloadedRecordDot #-} -{-# LANGUAGE OverloadedStrings #-} - module Issue.Text (extractText) where import Control.Arrow (second) diff --git a/app/Main.hs b/app/Main.hs index 9a88749..1bb5c70 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,11 +1,3 @@ -{-# LANGUAGE BlockArguments #-} -{-# LANGUAGE DuplicateRecordFields #-} -{-# LANGUAGE ForeignFunctionInterface #-} -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE OverloadedRecordDot #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE PartialTypeSignatures #-} - -- TODO Edit issues from command line -- -- I would like to edit issues from the command line. diff --git a/app/TreeGrepper/FileType.hs b/app/TreeGrepper/FileType.hs index 843eaf1..1ebeac1 100644 --- a/app/TreeGrepper/FileType.hs +++ b/app/TreeGrepper/FileType.hs @@ -1,6 +1,3 @@ -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE OverloadedStrings #-} - module TreeGrepper.FileType ( FileType (..), all, diff --git a/app/TreeGrepper/Match.hs b/app/TreeGrepper/Match.hs index 1072fbd..5d9479e 100644 --- a/app/TreeGrepper/Match.hs +++ b/app/TreeGrepper/Match.hs @@ -1,6 +1,3 @@ -{-# LANGUAGE OverloadedRecordDot #-} -{-# LANGUAGE DeriveAnyClass #-} - module TreeGrepper.Match ( Match (..), Position (..), @@ -9,6 +6,7 @@ module TreeGrepper.Match where import Data.Aeson (FromJSON) +import Data.Binary (Binary) import Data.Function (on) import Data.List (sortBy) import Data.List.NonEmpty (NonEmpty ((:|))) @@ -17,7 +15,6 @@ import Data.Ord (comparing) import Data.Text (Text) import Data.Text qualified as T import GHC.Generics (Generic) -import Data.Binary (Binary) data Match = Match { kind :: String, |