Skip to content

Commit

Permalink
Unused imports
Browse files Browse the repository at this point in the history
  • Loading branch information
nponeccop committed Mar 31, 2017
1 parent bab43d2 commit 1b36249
Show file tree
Hide file tree
Showing 5 changed files with 0 additions and 9 deletions.
1 change: 0 additions & 1 deletion src/Oczor/Infer/InferContext.hs
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,6 @@ module Oczor.Infer.InferContext (module Oczor.Infer.InferContext, module Oczor.I

import Oczor.Syntax.Syntax
import ClassyPrelude
import Control.Lens
import Oczor.Utl
import Oczor.Infer.Substitutable
import Oczor.Infer.Module
Expand Down
2 changes: 0 additions & 2 deletions src/Oczor/Infer/State.hs
Original file line number Diff line number Diff line change
Expand Up @@ -12,8 +12,6 @@ import Oczor.Infer.InferContext

import Oczor.Infer.Substitutable
import Oczor.Infer.InferAst
import Data.Functor.Foldable


data InferState = InferState {
_count :: Int,
Expand Down
2 changes: 0 additions & 2 deletions src/Oczor/Infer/Substitutable.hs
Original file line number Diff line number Diff line change
Expand Up @@ -5,8 +5,6 @@ import ClassyPrelude
import Oczor.Syntax.Syntax
import Oczor.Utl

import Data.Functor.Foldable

newtype Subst = Subst (Map String TypeExpr)
deriving (Eq, Ord, Show, Monoid)

Expand Down
2 changes: 0 additions & 2 deletions src/Oczor/Infer/Unify.hs
Original file line number Diff line number Diff line change
Expand Up @@ -10,8 +10,6 @@ import Oczor.Infer.State
import Oczor.Infer.Substitutable
import Oczor.Infer.UnifyState

import Data.Functor.Foldable

-- runUnify x y | traceResult ["=== runUnify ===", show x, show y] = trac "=== result ===" <$> runReaderT (unify x y) initState
runUnify x y = runReaderT (unify x y) initState

Expand Down
2 changes: 0 additions & 2 deletions src/Oczor/Syntax/Syntax.hs
Original file line number Diff line number Diff line change
Expand Up @@ -11,8 +11,6 @@ import Oczor.Syntax.Errors as X
import Oczor.Syntax.Operators as X
import qualified Control.Monad.Writer.Strict as W

import Data.Functor.Foldable

sysPrefix = "_"


Expand Down

0 comments on commit 1b36249

Please sign in to comment.