Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Ready

  • Loading branch information...
commit 2ff0e3165e57c80f0c3baa81c7e11fbb8dfa6da6 1 parent 45fa3a0
Fernando Benavides authored
Showing with 4 additions and 2 deletions.
  1. +4 −2 src/HPage/GUI/FreeTextWindow.hs
6 src/HPage/GUI/FreeTextWindow.hs
View
@@ -409,14 +409,15 @@ refreshPage model guiCtx@GUICtx{guiWin = win,
ind <- HP.getPageIndex
txt <- HP.getPageText
lmsRes <- HP.getLoadedModules
+ ims <- HP.getImportedModules
let lms = case lmsRes of
Left _ -> []
Right x -> x
- return (lms, pages, ind, txt)
+ return (ims, lms, pages, ind, txt)
case res of
Left err ->
warningDialog win "Error" err
- Right (ms, ps, i, t) ->
+ Right (ims, ms, ps, i, t) ->
do
-- Refresh the pages list
itemsDelete lstPages
@@ -431,6 +432,7 @@ refreshPage model guiCtx@GUICtx{guiWin = win,
set lstPages [selection := i]
-- Refresh the modules list
itemsDelete lstModules
+ (flip mapM) ims $ itemAppend lstModules . ('*':)
(flip mapM) ms $ itemAppend lstModules
-- Refresh the current text
set txtCode [text := t]
Please sign in to comment.
Something went wrong with that request. Please try again.