From cc5348c08a0614144d569b25877ee51bffde7231 Mon Sep 17 00:00:00 2001 From: Ranjeet Kumar Ranjan Date: Wed, 27 Jul 2022 12:42:27 +0530 Subject: [PATCH] Fix warnings --- src/Streamly/Coreutils/StringQ.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Streamly/Coreutils/StringQ.hs b/src/Streamly/Coreutils/StringQ.hs index e89efc66..e1b0ace9 100644 --- a/src/Streamly/Coreutils/StringQ.hs +++ b/src/Streamly/Coreutils/StringQ.hs @@ -22,7 +22,7 @@ import Control.Applicative (Alternative(..)) import Control.Monad.Catch (MonadCatch) import Control.Monad.IO.Class (liftIO, MonadIO) import Data.Char (chr) -import Data.Data (Data, Typeable) +import Data.Data (Data) import Data.Default.Class (Default(..)) import Language.Haskell.TH (Exp, Q, Pat) import Language.Haskell.TH.Quote (QuasiQuoter(..), dataToExpQ, dataToPatQ) @@ -61,20 +61,20 @@ data Permissions = Permissions { readable :: Bool , writable :: Bool , executable :: Bool - } deriving (Eq, Ord, Read, Show, Typeable, Data) + } deriving (Eq, Ord, Read, Show, Data) data UserType = Owner | Group | Others | All - deriving (Eq, Ord, Read, Show, Typeable, Data) + deriving (Eq, Ord, Read, Show, Data) data UserTypePerm = UserTypePerm { utype :: UserType , permssions :: Permissions - } deriving (Eq, Ord, Read, Show, Typeable, Data) + } deriving (Eq, Ord, Read, Show, Data) instance Default Permissions where def = Permissions