From de12b61d779e28d0a6d141bc8a4b2ddf22684611 Mon Sep 17 00:00:00 2001 From: Heather Date: Tue, 3 Nov 2015 16:49:52 +0400 Subject: [PATCH] src: drop unused DeriveDataTypeable --- src/GHCMod.hs | 2 +- src/GHCModi.hs | 2 +- src/Misc.hs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/GHCMod.hs b/src/GHCMod.hs index ed1aee9..f9b7608 100644 --- a/src/GHCMod.hs +++ b/src/GHCMod.hs @@ -48,7 +48,7 @@ optionUsage :: (String -> String) -> [OptDescr a] -> [String] optionUsage indent opts = concatMap optUsage opts where optUsage (Option so lo dsc udsc) = - [ concat $ intersperse ", " $ addLabel `map` allFlags + [ intercalate ", " $ addLabel `map` allFlags , indent $ udsc , "" ] diff --git a/src/GHCModi.hs b/src/GHCModi.hs index 161bc76..db18ed8 100644 --- a/src/GHCModi.hs +++ b/src/GHCModi.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE ScopedTypeVariables, DeriveDataTypeable #-} +{-# LANGUAGE ScopedTypeVariables #-} -- | WARNING -- This program is deprecated, use `ghc-mod legacy-interactive` instead. diff --git a/src/Misc.hs b/src/Misc.hs index a38c4ac..98e8f39 100644 --- a/src/Misc.hs +++ b/src/Misc.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE DeriveDataTypeable, CPP #-} +{-# LANGUAGE CPP #-} module Misc ( SymDbReq