@@ -316,6 +316,9 @@ handleImport moduleName = do
316 PSCI $ lift $ put s
316 PSCI $ lift $ put s
317 return ()
317 return ()
319+handleBrowse :: P.ModuleName -> PSCI ()
320+handleBrowse moduleName = undefined
320-- Takes a value and prints its type
323-- Takes a value and prints its type
@@ -397,6 +400,7 @@ handleCommand Reset = do
397 Right modules -> PSCI . lift $ put (PSCiState files defaultImports modules [])
400 Right modules -> PSCI . lift $ put (PSCiState files defaultImports modules [])
398handleCommand (TypeOf val) = handleTypeOf val
401handleCommand (TypeOf val) = handleTypeOf val
399handleCommand (KindOf typ) = handleKindOf typ
402handleCommand (KindOf typ) = handleKindOf typ
403+handleCommand (Browse moduleName) = handleBrowse moduleName
400handleCommand _ = PSCI $ outputStrLn "Unknown command"
404handleCommand _ = PSCI $ outputStrLn "Unknown command"
402singleLineFlag :: Cmd.Term Bool
406singleLineFlag :: Cmd.Term Bool