summaryrefslogtreecommitdiff
path: root/src/main/frege/examples/HelloFrege.fr
diff options
context:
space:
mode:
Diffstat (limited to 'src/main/frege/examples/HelloFrege.fr')
-rw-r--r--src/main/frege/examples/HelloFrege.fr13
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 ()