GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-08-17 01:41:09 +03:00
Code Issues Projects Releases Wiki Activity

chore: address GHC warnings

Browse Source
This commit is contained in:
Andrew Kent 2021-06-02 10:37:57 -07:00
parent affee13ad6
commit d456663ad6
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cryptol-remote-api/src/CryptolServer.hs
View File

@ -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) )

2
cryptol-remote-api/src/CryptolServer/Data/Expression.hs
View File

@ -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

2
src/Cryptol/REPL/Command.hs
View File

@ -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