From d0f7df60d325af2a5e3b6ffeeda377b8524896b7 Mon Sep 17 00:00:00 2001
From: "john.j.camilleri" <john.j.camilleri@chalmers.se>
Date: Fri, 26 Jul 2013 07:41:20 +0000
Subject: [PATCH] lib/src/api/libraryBrowser/MkLang.hs - allow multiple
 arguments

---
 lib/src/api/libraryBrowser/MkLang.hs | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/lib/src/api/libraryBrowser/MkLang.hs b/lib/src/api/libraryBrowser/MkLang.hs
index 94b5fde49..5a255f0b8 100644
--- a/lib/src/api/libraryBrowser/MkLang.hs
+++ b/lib/src/api/libraryBrowser/MkLang.hs
@@ -1,16 +1,18 @@
-
 import System.Environment (getArgs)
 import Data.List.Utils (replace)
 
-name = "LibraryBrowserEng.gf"
-
 main = do
   a <- getArgs
   case a of
-    lang:_ -> do
-      contents <- readFile name
-      let name'     = replace "Eng" lang name
-      let contents' = replace "Eng" lang contents
-      writeFile name' contents'
-      putStrLn $ "Wrote " ++ name'
-    _ -> print "You need to provide a language code"
+    [] -> print "You need to provide a language code"
+    langs -> mapM_ makeOne langs
+
+name = "LibraryBrowserEng.gf"
+
+makeOne "Eng" = putStrLn "Skipping Eng"
+makeOne lang  = do
+  contents <- readFile name
+  let name'     = replace "Eng" lang name
+  let contents' = replace "Eng" lang contents
+  writeFile name' contents'
+  putStrLn $ "Wrote " ++ name'