diff --git a/CONTRIBUTORS.markdown b/CONTRIBUTORS.markdown index b9c55e478d..037a11df58 100644 --- a/CONTRIBUTORS.markdown +++ b/CONTRIBUTORS.markdown @@ -44,4 +44,3 @@ The format for this list: name, GitHub handle, and then optional blurb about wha * Dave Nicponski (@virusdave) * Cody Allen (@ceedubs) * Ludvig Sundström (@lsund) -* Mohamed Elsharnouby (@sharno) diff --git a/parser-typechecker/unison-parser-typechecker.cabal b/parser-typechecker/unison-parser-typechecker.cabal index 1ca5d87f3f..f1e932cf61 100644 --- a/parser-typechecker/unison-parser-typechecker.cabal +++ b/parser-typechecker/unison-parser-typechecker.cabal @@ -258,10 +258,8 @@ executable unison temporary, text, unison-core, - unison-parser-typechecker - if !os(windows) - build-depends: - unix + unison-parser-typechecker, + unix executable prettyprintdemo main-is: Main.hs diff --git a/parser-typechecker/unison/Main.hs b/parser-typechecker/unison/Main.hs index 7adf5565ad..2101968c1b 100644 --- a/parser-typechecker/unison/Main.hs +++ b/parser-typechecker/unison/Main.hs @@ -1,7 +1,6 @@ {-# Language OverloadedStrings #-} {-# Language PartialTypeSignatures #-} {-# Language ScopedTypeVariables #-} -{-# LANGUAGE CPP #-} {-# OPTIONS_GHC -Wno-partial-type-signatures #-} module Main where @@ -27,6 +26,7 @@ import qualified Unison.Util.Cache as Cache import qualified Version import qualified Unison.Codebase.TranscriptParser as TR import qualified System.Path as Path +import qualified System.Posix.Signals as Sig import qualified System.FilePath as FP import qualified System.IO.Temp as Temp import qualified System.Exit as Exit @@ -38,12 +38,6 @@ import qualified Data.Text as Text import qualified Data.Configurator as Config import Text.Megaparsec (runParser) -#if defined(mingw32_HOST_OS) -import qualified GHC.ConsoleHandler as WinSig -#else -import qualified System.Posix.Signals as Sig -#endif - usage :: String -> P.Pretty P.ColorText usage executableStr = P.callout "🌻" $ P.lines [ P.bold "Usage instructions for the Unison Codebase Manager", @@ -108,17 +102,8 @@ installSignalHandlers = do case r of Nothing -> return () Just t -> throwTo t UserInterrupt - -#if defined(mingw32_HOST_OS) - let sig_handler WinSig.ControlC = interrupt - sig_handler WinSig.Break = interrupt - sig_handler _ = return () - _ <- WinSig.installHandler (WinSig.Catch sig_handler) -#else _ <- Sig.installHandler Sig.sigQUIT (Sig.Catch interrupt) Nothing _ <- Sig.installHandler Sig.sigINT (Sig.Catch interrupt) Nothing -#endif - return () main :: IO ()