Skip to content

Commit

Permalink
Fix warnings
Browse files Browse the repository at this point in the history
  • Loading branch information
rnjtranjan committed Jul 27, 2022
1 parent 6afa4c2 commit cc5348c
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions src/Streamly/Coreutils/StringQ.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit cc5348c

Please sign in to comment.