@@ -316,6 +316,9 @@ handleImport moduleName = do
316316 PSCI $ lift $ put s
317317 return ()
318318
319+handleBrowse :: P.ModuleName -> PSCI ()
320+handleBrowse moduleName = undefined
321+
319322-- |
320323-- Takes a value and prints its type
321324--
@@ -397,6 +400,7 @@ handleCommand Reset = do
397400 Right modules -> PSCI . lift $ put (PSCiState files defaultImports modules [])
398401handleCommand (TypeOf val) = handleTypeOf val
399402handleCommand (KindOf typ) = handleKindOf typ
403+handleCommand (Browse moduleName) = handleBrowse moduleName
400404handleCommand _ = PSCI $ outputStrLn "Unknown command"
401405
402406singleLineFlag :: Cmd.Term Bool