Skip to content

Commit

Permalink
repl: drop GHC pragams disabling warnings, prune imports
Browse files Browse the repository at this point in the history
  • Loading branch information
sorki committed Jul 4, 2020
1 parent 0cf6be6 commit c9eb246
Showing 1 changed file with 5 additions and 12 deletions.
17 changes: 5 additions & 12 deletions main/Repl.hs
Original file line number Diff line number Diff line change
Expand Up @@ -18,9 +18,6 @@
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeSynonymInstances #-}

{-# OPTIONS_GHC -Wno-unused-matches #-}
{-# OPTIONS_GHC -Wno-unused-imports #-}

module Repl
( main
, main'
Expand All @@ -29,16 +26,10 @@ module Repl
import Nix hiding ( exec
, try
)
import Nix.Cited
import Nix.Convert
import Nix.Eval
import Nix.Scope
import qualified Nix.Type.Env as Env
import Nix.Type.Infer
import Nix.Utils
import Nix.Value.Monad (demand)

import Control.Comonad
import qualified Data.List
import qualified Data.Maybe
import qualified Data.HashMap.Lazy
Expand Down Expand Up @@ -67,7 +58,6 @@ import System.Console.Repline ( Cmd
, CompleterStyle (Prefix)
, ExitDecision(Exit)
, HaskelineT
, WordCompleter
)
import qualified System.Console.Repline
import qualified System.Exit
Expand Down Expand Up @@ -208,8 +198,11 @@ exec update source = do

-- Type Inference ( returns Typing Environment )
--
--let tyctx' = inferTop Env.empty [("repl", stripAnnotation expr)]
--liftIO $ print tyctx'
-- import qualified Nix.Type.Env as Env
-- import Nix.Type.Infer
--
-- let tyctx' = inferTop Env.empty [("repl", stripAnnotation expr)]
-- liftIO $ print tyctx'

mVal <- lift $ lift $ try $ pushScope (replCtx st) (evalExprLoc expr)

Expand Down

0 comments on commit c9eb246

Please sign in to comment.