Commit e6870916 authored by rrt's avatar rrt

[project @ 2001-01-18 15:47:10 by rrt]

Merge Windows fixes and tidying from ghc-4-07-branch
parent 7c55a927
......@@ -3,7 +3,7 @@
-
- Copyright 1990,1991,1992,1993 Duncan Sinclair
-
- Permissiom to use, copy, modify, and distribute this software for any
- Permission to use, copy, modify, and distribute this software for any
- purpose and without fee is hereby granted, provided that the above
- copyright notice and this permission notice appear in all copies, and
- that my name not be used in advertising or publicity pertaining to this
......@@ -33,8 +33,6 @@ import Patchlevel
import System
-- main x = [AppendChan stdout picture]
main = do
argv <- getArgs
let
......@@ -43,20 +41,7 @@ main = do
_ -> 7
putStr (picture n)
{- OLD 1.2:
main = getArgs exit (\argv ->
let arg = case argv of {[w] -> words w; _ -> []}
[n] = if length arg == 1
then (map read arg :: [Int])
else [7]
in
appendChan stdout (picture n) exit done)
-}
picture n = go n pic
go :: Int -> Csg -> [Char]
go n = (cdraw n) . quadoct . (octcsg n)
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment