Fix incorrect type and update dependencies

This commit is contained in:
Andreas Källberg
2020-09-11 10:58:18 +02:00
parent 340f8d9b93
commit 2fd1040724
2 changed files with 2 additions and 2 deletions

View File

@@ -13,7 +13,6 @@ import Control.Monad(when)
import qualified Data.Map as Map
import GF.Infra.UseIO (Output)
import qualified Control.Monad.Fail as Fail
-- import Control.Monad.State (StateT)
data CommandEnv m = CommandEnv {
commands :: Map.Map String (CommandInfo m),
@@ -25,7 +24,7 @@ data CommandEnv m = CommandEnv {
mkCommandEnv cmds = CommandEnv cmds Map.empty Map.empty
--interpretCommandLine :: CommandEnv -> String -> SIO ()
interpretCommandLine :: (Output m, TypeCheckArg m) => CommandEnv m -> String -> m ()
interpretCommandLine :: (Fail.MonadFail m, Output m, TypeCheckArg m) => CommandEnv m -> String -> m ()
interpretCommandLine env line =
case readCommandLine line of
Just [] -> return ()

View File

@@ -3,3 +3,4 @@ resolver: lts-14.3 # ghc 8.6.5
extra-deps:
- network-2.6.3.6
- httpd-shed-0.4.0.3
- cgi-3001.5.0.0