Regen

Author: augustss

generated/mcabal.c

@@ -580,9 +580,6 @@ getPaths = do
       binDir <- takeDirectory <$> catch getExecutablePath (\ (_ :: SomeException) -> getProgName) -- ~/.mcabal/bin
       let upDir = binDir </> ".."
       inplace <- doesFileExist (upDir </> "src/runtime/eval.c")
-      when _isWindows $ do
-        getExecutablePath >>= print
-        print (upDir </> "src/runtime/eval.c", inplace)
       if inplace then do
         let libDir = upDir </> "lib"
             gmpDir | wantGMP   = [libDir </> "gmp"]

generated/mhs.c

@@ -123,7 +123,7 @@ instance NFData EDef where
   rnf (DfltSign a b) = rnf a `seq` rnf b
   rnf (SetTCState a) = seq a ()
 
-data XTCState = XTCState
+data XTCState
 instance Eq XTCState where _ == _  =  True
 instance Show XTCState where show _ = "<<TCState>>"
 

generated/mhseval.js

@@ -2,7 +2,7 @@
 module MicroHs.Version(
   version,
   ) where
-import qualified Prelude(); import MHSPrelude
+import qualified Prelude()
 import Data.Version
 
 version :: Version