Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: typefamily
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (11 sloc) 0.321 kB
module Main where
import Compiler.Pipeline
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))
main :: P.IO ()
main =
do out <- compiler jsSumList
P.writeFile "test.js" out
Jump to Line
Something went wrong with that request. Please try again.