up

Author: dezren39

pkgs/roc/applications/display/go/main

@@ -1,10 +1,16 @@
 app [main] {
   pf: platform "../../../platforms/go/main.roc"
 }
-import Lib.Display as Display
+import Lib.Display exposing [str]
 main : Str
-main = Display.str [
+main = str [
   ["Roc", "<3", "Go", "!", "!", "!"],
   ["This", "is", "a", "Roc", "application", "running", "on", "Go."],
   ["It", "imports", "a", "Roc", "module", "and", "calls", "a", "function", "from", "it."],
 ]
+#matrix 2 3
+#[
+#  ["Roc", "<3", "Go", "!", "!", "!"],
+#  ["This", "is", "a", "Roc", "application", "running", "on", "Go."],
+#  ["It", "imports", "a", "Roc", "module", "and", "calls", "a", "function", "from", "it."],
+#]

pkgs/roc/applications/display/go/main.roc

@@ -1,5 +1,13 @@
 module [str]
+#module [str, matrix]
 str : List (List Str) -> Str
 str = |lines| lines
   |> List.map (\ws -> Str.join_with(ws, " "))
   |> Str.join_with("\n")
+#matrix : Int -> Int -> List (List Str)
+#matrix rows cols =
+#    List.range 0 rows
+#        |> List.map (\r ->
+#            List.range 0 cols
+#                |> List.map (\c -> Num.to_str (r * cols + c))
+#        )

pkgs/roc/applications/hello/go/main

@@ -1,11 +1,11 @@
 module [str]
-import Lib.Square as Square
+import Lib.Square exposing [f64]
 num : F64
 num = 8192.0125
 str : Str
 str = Str.join_with([
   "Roc <3 Go!",
-  Str.join_with([Num.to_str(num), "^2=", Num.to_str(Square.f64(num))], ""),
+  Str.join_with([Num.to_str(num), "^2=", Num.to_str(f64(num))], ""),
   "This is a Roc application running on Go.",
   "It imports a Roc module and calls a function from it.",
   ], "\n")

pkgs/roc/lib/Display.roc

@@ -14,7 +14,7 @@ skip_run=0
 
 eval set -- "$(getopt -o "" --long platform:,app:,static,skip-run,help -- "$@")"
 while true; do
-  case $1 in
+  case ${1:---} in
   --platform)
     platform=$2
     shift 2
@@ -34,7 +34,7 @@ while true; do
   --help) usage ;;
   --)
     shift
-    # break
+    break
     ;;
   # *) usage ;;
   *)