getForeJs :: Text -> IO Text
getForeJs name = do
  let sourceMapRef = "//@ sourceMappingURL=" <> name <> T.pack mapExt <> "\n"
  rts <- T.readFile "../js/rts.js"
  base <- T.readFile "../js/base.js"
  classes <- T.readFile "../js/classes.js"
  instances <- T.readFile "../js/instances.js"
  io <- T.readFile "../js/io.js"
  primitives <- T.readFile "../js/primitives.js"
  let header = T.pack (replicate 80 '/') <> "\n// Application/library code\n"
  beautify (T.concat [sourceMapRef
                     ,rts
                     ,base
                     ,classes
                     ,instances
                     ,io
                     ,primitives
                     ,header])
getForeJs :: Text -> IO Text
getForeJs name = do
  let sourceMapRef = "//@ sourceMappingURL=" <> name <> T.pack mapExt <> "\n"
  rts <- T.readFile "../js/rts.js"
  base <- T.readFile "../js/base.js"
  classes <- T.readFile "../js/classes.js"
  instances <- T.readFile "../js/instances.js"
  io <- T.readFile "../js/io.js"
  primitives <- T.readFile "../js/primitives.js"
  let header = T.pack (replicate 80 '/') <> "\n// Application/library code\n"
  beautify (T.concat [sourceMapRef
                     ,rts
                     ,base
                     ,classes
                     ,instances
                     ,io
                     ,primitives
                     ,header])
getForeJs name = do
  let sourceMapRef = "//@ sourceMappingURL=" <> name <> T.pack mapExt <> "\n"
  rts <- T.readFile "../js/rts.js"
  base <- T.readFile "../js/base.js"
  classes <- T.readFile "../js/classes.js"
  instances <- T.readFile "../js/instances.js"
  io <- T.readFile "../js/io.js"
  primitives <- T.readFile "../js/primitives.js"
  let header = T.pack (replicate 80 '/') <> "\n// Application/library code\n"
  beautify (T.concat [sourceMapRef
                     ,rts
                     ,base
                     ,classes
                     ,instances
                     ,io
                     ,primitives
                     ,header])