From 974c63a679de8975d7f6593f986d3acc47506a7d Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 27 Jul 2020 11:35:10 +0100 Subject: [PATCH] Remove unnecessary language extensions Attempting to abide by the Principle of Least Power. Also: the smaller the headers in each module are, the happier I am. --- src/API.hs | 5 ----- src/App.hs | 5 ----- src/Types.hs | 2 -- 3 files changed, 12 deletions(-) diff --git a/src/API.hs b/src/API.hs index ae85c8f93..70da1921d 100644 --- a/src/API.hs +++ b/src/API.hs @@ -1,14 +1,9 @@ {-# LANGUAGE DataKinds #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE TypeFamilies #-} {-# LANGUAGE TypeOperators #-} -------------------------------------------------------------------------------- module API where -------------------------------------------------------------------------------- -import Data.Proxy import Data.Text -import Database.Persist import Servant.API import qualified Types as T diff --git a/src/App.hs b/src/App.hs index a13ffa2d3..4381882d1 100644 --- a/src/App.hs +++ b/src/App.hs @@ -1,10 +1,5 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE TypeApplications #-} -{-# LANGUAGE TypeFamilies #-} -{-# LANGUAGE TypeOperators #-} -------------------------------------------------------------------------------- module App where -------------------------------------------------------------------------------- diff --git a/src/Types.hs b/src/Types.hs index fc1516e5b..083724961 100644 --- a/src/Types.hs +++ b/src/Types.hs @@ -1,5 +1,3 @@ -{-# LANGUAGE EmptyDataDecls #-} -{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE MultiParamTypeClasses #-}