diff options
Diffstat (limited to 'src/main/frege/examples/HelloFrege.fr')
-rw-r--r-- | src/main/frege/examples/HelloFrege.fr | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/src/main/frege/examples/HelloFrege.fr b/src/main/frege/examples/HelloFrege.fr index 6fe88f7..8f49899 100644 --- a/src/main/frege/examples/HelloFrege.fr +++ b/src/main/frege/examples/HelloFrege.fr @@ -1,7 +1,12 @@ module examples.HelloFrege where -import Test.QuickCheck -import buildclient.config.BuildConfig (parseBuildConfigStr) - +import buildclient.config.BuildConfig +import frege.java.Swing +import buildclient.tasks.Executor main = do + -- gui <- JFrame.new "BuildClient" + -- JFrame.setDefaultCloseOperation gui JFrame.exit_on_close text <- readFile "src/main/resources/testconfig.bcc" - println $ show $ parseBuildConfigStr text + let (Right x) = parseBuildConfigStr text + + bcDownloadSync (File.new "testdest") (BuildConfig.source x) + return () |