diff --git a/src/compiler/GF/Interactive2.hs b/src/compiler/GF/Interactive2.hs
index bfa7fd6b2..d023f47e4 100644
--- a/src/compiler/GF/Interactive2.hs
+++ b/src/compiler/GF/Interactive2.hs
@@ -166,6 +166,7 @@ execute1' s0 =
       do execute . lines =<< lift (restricted (readFile w))
          continue
       where
+        execute :: [String] -> ShellM ()
         execute [] = done
         execute (line:lines) = whenM (execute1' line) (execute lines)