Remove the data-default dependency
This commit is contained in:
parent
fbe0800856
commit
7b3a84bc74
@ -160,7 +160,6 @@ Executable ghc-mod
|
|||||||
HS-Source-Dirs: src
|
HS-Source-Dirs: src
|
||||||
Build-Depends: base >= 4.0 && < 5
|
Build-Depends: base >= 4.0 && < 5
|
||||||
, async
|
, async
|
||||||
, data-default
|
|
||||||
, directory
|
, directory
|
||||||
, filepath
|
, filepath
|
||||||
, pretty
|
, pretty
|
||||||
|
@ -8,7 +8,6 @@ import Control.Applicative
|
|||||||
import Control.Monad
|
import Control.Monad
|
||||||
import Data.Typeable (Typeable)
|
import Data.Typeable (Typeable)
|
||||||
import Data.Version (showVersion)
|
import Data.Version (showVersion)
|
||||||
import Data.Default
|
|
||||||
import Data.List
|
import Data.List
|
||||||
import Data.List.Split
|
import Data.List.Split
|
||||||
import Data.Char (isSpace)
|
import Data.Char (isSpace)
|
||||||
@ -303,9 +302,6 @@ data InteractiveOptions = InteractiveOptions {
|
|||||||
ghcModExtensions :: Bool
|
ghcModExtensions :: Bool
|
||||||
}
|
}
|
||||||
|
|
||||||
instance Default InteractiveOptions where
|
|
||||||
def = InteractiveOptions False
|
|
||||||
|
|
||||||
handler :: IO a -> IO a
|
handler :: IO a -> IO a
|
||||||
handler = flip catches $
|
handler = flip catches $
|
||||||
[ Handler $ \(FatalError msg) -> exitError msg
|
[ Handler $ \(FatalError msg) -> exitError msg
|
||||||
|
Loading…
Reference in New Issue
Block a user