Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Made Main.hs compile again

  • Loading branch information...
commit c06fc73e1489aecdd3556b0395d427065245efee 1 parent c070711
@tomlokhorst authored
Showing with 8 additions and 5 deletions.
  1. +8 −5 src/Main.hs
View
13 src/Main.hs
@@ -5,11 +5,14 @@ import Generic.Prelude
import Lang.JavaScript
import qualified Prelude as P
-jsSumList :: JavaScript Num
-jsSumList = sum (replicate 3 (2 * 8) ++ replicate 3 8) * maybe 4 (*8) (just (3 - 2))
+three :: JavaScript Number
+three = 3
+
+jsSumList :: JavaScript Number
+jsSumList = sum (replicate three (2 * 8) ++ replicate three 8) * maybe 4 (*8) (just (3 - 2))
main :: P.IO ()
-main =
- do out <- compiler jsSumList
- P.writeFile "test.js" out
+main = do
+ out <- compiler jsSumList
+ P.writeFile "test.js" out
Please sign in to comment.
Something went wrong with that request. Please try again.