diff options
| author | krasimir <krasimir@chalmers.se> | 2015-08-21 11:58:32 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2015-08-21 11:58:32 +0000 |
| commit | d1b46ece28522845379d4b0eb382e561a1dc221d (patch) | |
| tree | 685d1fccc970a88fbc2d097bb20069c9df78e5d9 | |
| parent | 026d6a73ad053251082026a83720f5c2c376feff (diff) | |
add a type signature in GF.Interactive2 to make ghc-7.6.3 happy
| -rw-r--r-- | src/compiler/GF/Interactive2.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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) |