@@ -22,7 +22,7 @@ import Control.Applicative (Alternative(..))
22
22
import Control.Monad.Catch (MonadCatch )
23
23
import Control.Monad.IO.Class (liftIO , MonadIO )
24
24
import Data.Char (chr )
25
- import Data.Data (Data , Typeable )
25
+ import Data.Data (Data )
26
26
import Data.Default.Class (Default (.. ))
27
27
import Language.Haskell.TH (Exp , Q , Pat )
28
28
import Language.Haskell.TH.Quote (QuasiQuoter (.. ), dataToExpQ , dataToPatQ )
@@ -61,20 +61,20 @@ data Permissions = Permissions
61
61
{ readable :: Bool
62
62
, writable :: Bool
63
63
, executable :: Bool
64
- } deriving (Eq , Ord , Read , Show , Typeable , Data )
64
+ } deriving (Eq , Ord , Read , Show , Data )
65
65
66
66
data UserType =
67
67
Owner
68
68
| Group
69
69
| Others
70
70
| All
71
- deriving (Eq , Ord , Read , Show , Typeable , Data )
71
+ deriving (Eq , Ord , Read , Show , Data )
72
72
73
73
data UserTypePerm =
74
74
UserTypePerm
75
75
{ utype :: UserType
76
76
, permssions :: Permissions
77
- } deriving (Eq , Ord , Read , Show , Typeable , Data )
77
+ } deriving (Eq , Ord , Read , Show , Data )
78
78
79
79
instance Default Permissions where
80
80
def = Permissions
0 commit comments