mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-08-17 01:41:09 +03:00
chore: address GHC warnings
This commit is contained in:
parent
affee13ad6
commit
d456663ad6
@ -29,7 +29,7 @@ import qualified Argo
|
||||
import qualified Argo.Doc as Doc
|
||||
import CryptolServer.Data.FreshName
|
||||
import CryptolServer.Exceptions
|
||||
( cryptolError, unknownFreshName, invalidName)
|
||||
( cryptolError, invalidName)
|
||||
import CryptolServer.Options
|
||||
( WithOptions(WithOptions), Options(Options, optEvalOpts) )
|
||||
|
||||
|
@ -41,7 +41,7 @@ import Cryptol.Eval.Concrete (Value)
|
||||
import Cryptol.Eval.Type (TValue(..), tValTy)
|
||||
import Cryptol.Eval.Value (GenValue(..))
|
||||
import Cryptol.ModuleSystem
|
||||
(ModuleEnv, ModuleCmd, getPrimMap, evalDecls, renameType, renameVar, checkExpr, focusedEnv)
|
||||
(ModuleEnv, ModuleCmd, getPrimMap, evalDecls, renameType, checkExpr, focusedEnv)
|
||||
import Cryptol.ModuleSystem.Env (deNames,meDynEnv, mctxParams, mctxDecls, mctxNames)
|
||||
import Cryptol.ModuleSystem.Monad (runModuleM, interactive, getFocusedEnv)
|
||||
import qualified Cryptol.ModuleSystem.Base as Base
|
||||
|
@ -1245,7 +1245,7 @@ helpCmd cmd
|
||||
M.Parameter -> rPutStrLn "// No documentation is available."
|
||||
|
||||
|
||||
showModHelp env disp x =
|
||||
showModHelp _env disp x =
|
||||
rPrint $ runDoc disp $ vcat [ "`" <> pp x <> "` is a module." ]
|
||||
-- XXX: show doc. if any
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user