Skip to content

Commit ef259d5

Browse files
committed
Removed custom CMode
1 parent b5dfd45 commit ef259d5

File tree

1 file changed

+9
-13
lines changed

1 file changed

+9
-13
lines changed

dhall/src/Dhall/DirectoryTree/Types.hs

Lines changed: 9 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,12 @@
1-
{-# LANGUAGE CPP #-}
2-
{-# LANGUAGE DeriveGeneric #-}
3-
{-# LANGUAGE FlexibleInstances #-}
4-
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
5-
{-# LANGUAGE LambdaCase #-}
6-
{-# LANGUAGE OverloadedStrings #-}
7-
{-# LANGUAGE PatternSynonyms #-}
8-
{-# LANGUAGE StandaloneDeriving #-}
9-
{-# LANGUAGE TypeApplications #-}
10-
{-# LANGUAGE ViewPatterns #-}
1+
{-# LANGUAGE CPP #-}
2+
{-# LANGUAGE DeriveGeneric #-}
3+
{-# LANGUAGE FlexibleInstances #-}
4+
{-# LANGUAGE LambdaCase #-}
5+
{-# LANGUAGE OverloadedStrings #-}
6+
{-# LANGUAGE PatternSynonyms #-}
7+
{-# LANGUAGE StandaloneDeriving #-}
8+
{-# LANGUAGE TypeApplications #-}
9+
{-# LANGUAGE ViewPatterns #-}
1110

1211
{-# OPTIONS_GHC -Wno-orphans #-}
1312

@@ -192,9 +191,6 @@ setFileModeOnUnix :: FilePath -> FileMode -> IO ()
192191
setFileModeOnUnix fp _ = hPutStrLn stderr $ "Warning: Feature is not supported on your platform; Failed to set permissions for " <> fp
193192

194193
type FileMode = CMode
195-
196-
newtype CMode = CMode Word32
197-
deriving (Eq, Ord, Enum, Num, Real, Show, Read, Bounded, Integral)
198194
#else
199195
setFileModeOnUnix fp mode = Posix.setFileMode fp mode
200196
#endif

0 commit comments

Comments
 (0)