Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

9.6.1 #223

Open
rd-- opened this issue Mar 15, 2023 · 1 comment
Open

9.6.1 #223

rd-- opened this issue Mar 15, 2023 · 1 comment

Comments

@rd--
Copy link

rd-- commented Mar 15, 2023 •
edited
Loading

Hello, Changes below let things compile with ghc-9.6.1. Best, R

husk-9.6.1.txt
@rd--
Copy link
Author

rd-- commented Mar 15, 2023

hmm, inline incase

diff --git a/hs-src/Compiler/huskc.hs b/hs-src/Compiler/huskc.hs
index 89811926..dc69510e 100644
--- a/hs-src/Compiler/huskc.hs
+++ b/hs-src/Compiler/huskc.hs
@@ -16,7 +16,9 @@ import Language.Scheme.Compiler.Types
 import qualified Language.Scheme.Core
 import Language.Scheme.Types     -- Scheme data types
 import Language.Scheme.Variables -- Scheme variable operations
+import Control.Monad
 import Control.Monad.Except
+import Control.Monad.IO.Class
 import Data.Maybe (fromMaybe)
 import System.Console.GetOpt
 import System.FilePath (dropExtension)
diff --git a/hs-src/Interpreter/shell.hs b/hs-src/Interpreter/shell.hs
index 00defed5..1f71b3f2 100644
--- a/hs-src/Interpreter/shell.hs
+++ b/hs-src/Interpreter/shell.hs
@@ -16,7 +16,9 @@ import qualified Language.Scheme.Core as LSC -- Scheme Interpreter
 import Language.Scheme.Types                 -- Scheme data types
 import qualified Language.Scheme.Util as LSU (countAllLetters, countLetters, strip)
 import qualified Language.Scheme.Variables as LSV -- Scheme variable operations
+import Control.Monad
 import Control.Monad.Except
+import Control.Monad.IO.Class
 import qualified Data.Char as DC
 import qualified Data.List as DL
 import Data.Maybe (fromMaybe)
diff --git a/hs-src/Language/Scheme/Compiler.hs b/hs-src/Language/Scheme/Compiler.hs
index fb994cb9..ebd1df3a 100644
--- a/hs-src/Language/Scheme/Compiler.hs
+++ b/hs-src/Language/Scheme/Compiler.hs
@@ -59,6 +59,7 @@ import Language.Scheme.Primitives
 import Language.Scheme.Types
 import Language.Scheme.Variables
 import Control.Monad.Except
+import Control.Monad.IO.Class
 import qualified Data.List
 import Data.Maybe (fromMaybe)
 
diff --git a/hs-src/Language/Scheme/Compiler/Libraries.hs b/hs-src/Language/Scheme/Compiler/Libraries.hs
index e88b58fc..17c478e1 100644
--- a/hs-src/Language/Scheme/Compiler/Libraries.hs
+++ b/hs-src/Language/Scheme/Compiler/Libraries.hs
@@ -16,6 +16,7 @@ module Language.Scheme.Compiler.Libraries
       importAll
     )
 where 
+import Control.Monad.IO.Class
 import Language.Scheme.Compiler.Types
 import qualified Language.Scheme.Core as LSC 
     (evalLisp, findFileOrLib, meval, nullEnvWithImport)
diff --git a/hs-src/Language/Scheme/Core.hs b/hs-src/Language/Scheme/Core.hs
index 78596125..a391b1a7 100644
--- a/hs-src/Language/Scheme/Core.hs
+++ b/hs-src/Language/Scheme/Core.hs
@@ -62,7 +62,9 @@ import Language.Scheme.Primitives
 import Language.Scheme.Types
 import Language.Scheme.Util
 import Language.Scheme.Variables
+import Control.Monad
 import Control.Monad.Except
+import Control.Monad.IO.Class
 import Data.Array
 import qualified Data.ByteString as BS
 import qualified Data.Map
diff --git a/hs-src/Language/Scheme/Environments.hs b/hs-src/Language/Scheme/Environments.hs
index 3dbdec6c..761d0263 100644
--- a/hs-src/Language/Scheme/Environments.hs
+++ b/hs-src/Language/Scheme/Environments.hs
@@ -21,6 +21,7 @@ import Language.Scheme.Primitives
 import Language.Scheme.Types
 import Language.Scheme.Variables
 import Control.Monad.Except
+import Control.Monad.IO.Class
 import qualified Data.Char
 import System.IO
 
diff --git a/hs-src/Language/Scheme/Libraries.hs b/hs-src/Language/Scheme/Libraries.hs
index 83cccff5..f598be96 100644
--- a/hs-src/Language/Scheme/Libraries.hs
+++ b/hs-src/Language/Scheme/Libraries.hs
@@ -20,6 +20,7 @@ module Language.Scheme.Libraries
 import Language.Scheme.Types
 import Language.Scheme.Variables
 import Control.Monad.Except
+import Control.Monad.IO.Class
 
 -- |Get the full path to a module file
 findModuleFile 
diff --git a/hs-src/Language/Scheme/Macro.hs b/hs-src/Language/Scheme/Macro.hs
index 833fc0c7..2c6e48d9 100644
--- a/hs-src/Language/Scheme/Macro.hs
+++ b/hs-src/Language/Scheme/Macro.hs
@@ -53,6 +53,7 @@ import Language.Scheme.Macro.ExplicitRenaming
 import qualified Language.Scheme.Macro.Matches as Matches
 import Language.Scheme.Primitives (_gensym)
 import Control.Monad.Except
+import Control.Monad.IO.Class
 import Data.Array
 -- import Debug.Trace -- Only req'd to support trace, can be disabled at any time...
 
diff --git a/hs-src/Language/Scheme/Macro/ExplicitRenaming.hs b/hs-src/Language/Scheme/Macro/ExplicitRenaming.hs
index 64730123..d4dbf212 100644
--- a/hs-src/Language/Scheme/Macro/ExplicitRenaming.hs
+++ b/hs-src/Language/Scheme/Macro/ExplicitRenaming.hs
@@ -28,6 +28,7 @@ import Language.Scheme.Types
 import Language.Scheme.Variables
 import Language.Scheme.Primitives (_gensym)
 import Control.Monad.Except
+import Control.Monad.IO.Class
 -- import Debug.Trace
 
 -- |Handle an explicit renaming macro
diff --git a/hs-src/Language/Scheme/Parser.hs b/hs-src/Language/Scheme/Parser.hs
index fccaa24e..263ac921 100644
--- a/hs-src/Language/Scheme/Parser.hs
+++ b/hs-src/Language/Scheme/Parser.hs
@@ -46,7 +46,9 @@ module Language.Scheme.Parser
     , parseUnquoteSpliced 
     ) where
 import Language.Scheme.Types
+import Control.Monad
 import Control.Monad.Except
+import Control.Monad.IO.Class
 import Data.Array
 import qualified Data.ByteString as BS
 import qualified Data.Char as DC
diff --git a/hs-src/Language/Scheme/Plugins/CPUTime.hs b/hs-src/Language/Scheme/Plugins/CPUTime.hs
index 1d7d0b13..89ec1611 100644
--- a/hs-src/Language/Scheme/Plugins/CPUTime.hs
+++ b/hs-src/Language/Scheme/Plugins/CPUTime.hs
@@ -21,6 +21,7 @@ module Language.Scheme.Plugins.CPUTime (get, precision) where
 import Language.Scheme.Types
 import System.CPUTime
 import Control.Monad.Except
+import Control.Monad.IO.Class
 
 -- |Wrapper for CPUTime.getCPUTime
 get :: [LispVal] -> IOThrowsError LispVal
diff --git a/hs-src/Language/Scheme/Primitives.hs b/hs-src/Language/Scheme/Primitives.hs
index 609be669..977904fa 100644
--- a/hs-src/Language/Scheme/Primitives.hs
+++ b/hs-src/Language/Scheme/Primitives.hs
@@ -161,7 +161,9 @@ import Language.Scheme.Parser
 import Language.Scheme.Types
 import Language.Scheme.Variables
 --import qualified Control.Exception
+import Control.Monad
 import Control.Monad.Except
+import Control.Monad.IO.Class
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.UTF8 as BSU
 import Data.Char hiding (isSymbol)
diff --git a/hs-src/Language/Scheme/Variables.hs b/hs-src/Language/Scheme/Variables.hs
index ef460d4e..77136612 100644
--- a/hs-src/Language/Scheme/Variables.hs
+++ b/hs-src/Language/Scheme/Variables.hs
@@ -55,6 +55,7 @@ module Language.Scheme.Variables
     ) where
 import Language.Scheme.Types
 import Control.Monad.Except
+import Control.Monad.IO.Class
 import Data.Array
 import Data.IORef
 import qualified Data.Map

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
None yet
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
1 participant
@rd--