shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Remove explicit import of Prelude

--- a/src/MicroHs/Abstract.hs

+++ b/src/MicroHs/Abstract.hs

@@ -2,7 +2,6 @@

   compileOpt,

   -- reduce,

   ) where

-import Prelude

 import MicroHs.Ident

 import MicroHs.Exp

 import MicroHs.Expr(Lit(..))

--- a/src/MicroHs/Compile.hs

+++ b/src/MicroHs/Compile.hs

@@ -11,7 +11,6 @@

   packageDir, packageSuffix, packageTxtSuffix,

   mhsVersion,

   ) where

-import Prelude

 import Data.Char

 import Data.List

 import Data.Maybe

--- a/src/MicroHs/CompileCache.hs

+++ b/src/MicroHs/CompileCache.hs

@@ -5,7 +5,6 @@

   addPackage, getCompMdls, getPkgs,

   saveCache, loadCached,

   ) where

-import Prelude

 import MicroHs.Desugar(LDef)

 import MicroHs.Expr(IdentModule)

 import MicroHs.Ident(showIdent)

--- a/src/MicroHs/Desugar.hs

+++ b/src/MicroHs/Desugar.hs

@@ -6,7 +6,6 @@

   LDef, showLDefs,

   encodeInteger,

   ) where

-import Prelude

 import Data.Char

 import Data.Function

 import Data.Integer(_integerToIntList)

--- a/src/MicroHs/ExpPrint.hs

+++ b/src/MicroHs/ExpPrint.hs

@@ -1,5 +1,4 @@

 module MicroHs.ExpPrint(toStringCMdl, toStringP, encodeString, combVersion) where

-import Prelude

 import Data.Char(ord, chr)

 import qualified MicroHs.IdentMap as M

 import Data.Maybe

--- a/src/MicroHs/Fixity.hs

+++ b/src/MicroHs/Fixity.hs

@@ -1,5 +1,4 @@

 module MicroHs.Fixity(resolveFixity) where

-import Prelude

 import MicroHs.Expr

 import MicroHs.Ident

--- a/src/MicroHs/Ident.hs

+++ b/src/MicroHs/Ident.hs

@@ -16,8 +16,6 @@

   SLoc(..), noSLoc,

   showSLoc,

   ) where

-import Data.Eq

-import Prelude

 import Data.Char

 import Text.PrettyPrint.HughesPJLite

 import GHC.Stack

--- a/src/MicroHs/Main.hs

+++ b/src/MicroHs/Main.hs

@@ -2,7 +2,6 @@

 -- See LICENSE file for full license.

 {-# OPTIONS_GHC -Wno-unused-do-bind -Wno-unused-imports #-}

 module MicroHs.Main(main) where

-import Prelude

 import Data.Char

 import Data.List

 import Data.Version

--- a/src/MicroHs/MakeCArray.hs

+++ b/src/MicroHs/MakeCArray.hs

@@ -1,7 +1,6 @@

 -- Copyright 2023 Lennart Augustsson

 -- See LICENSE file for full license.

 module MicroHs.MakeCArray(makeCArray) where

-import Prelude

 import Data.Char

 import MicroHs.Flags

 import qualified System.Compress as C

--- a/src/MicroHs/Parse.hs

+++ b/src/MicroHs/Parse.hs

@@ -2,7 +2,6 @@

 -- See LICENSE file for full license.

 {-# OPTIONS_GHC -Wno-incomplete-uni-patterns -Wno-unused-do-bind #-}

 module MicroHs.Parse(P, pTop, pTopModule, parseDie, parse, pExprTop, keywords) where

-import Prelude

 import Control.Applicative

 import Control.Monad

 import Data.Char

--- a/src/MicroHs/StateIO.hs

+++ b/src/MicroHs/StateIO.hs

@@ -8,7 +8,6 @@

   module Control.Monad,

   module Data.Functor,

   ) where

-import Prelude

 import Control.Applicative

 import Control.Monad

 import Data.Functor hiding(unzip)

--- a/src/MicroHs/TCMonad.hs

+++ b/src/MicroHs/TCMonad.hs

@@ -3,7 +3,6 @@

   module MicroHs.TCMonad,

   get, put, gets, modify,

   ) where

-import Prelude

 import Data.Functor.Identity

 import GHC.Stack

 import Control.Applicative

--- a/src/MicroHs/Translate.hs

+++ b/src/MicroHs/Translate.hs

@@ -3,7 +3,6 @@

 module MicroHs.Translate(

   translate, translateAndRun

   ) where

-import Prelude

 import Data.Maybe

 import qualified MicroHs.IdentMap as M

 import Unsafe.Coerce

--- a/src/MicroHs/TypeCheck.hs

+++ b/src/MicroHs/TypeCheck.hs

@@ -15,7 +15,6 @@

   ValueExport(..), TypeExport(..),

   Symbols,

   ) where

-import Prelude

 import Control.Applicative

 import Control.Arrow(first)

 import Control.Monad

-- 

⑨