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 @@ ...@@ -3,7 +3,7 @@
- -
- Copyright 1990,1991,1992,1993 Duncan Sinclair - 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 - purpose and without fee is hereby granted, provided that the above
- copyright notice and this permission notice appear in all copies, and - copyright notice and this permission notice appear in all copies, and
- that my name not be used in advertising or publicity pertaining to this - that my name not be used in advertising or publicity pertaining to this
...@@ -33,8 +33,6 @@ import Patchlevel ...@@ -33,8 +33,6 @@ import Patchlevel
import System import System
-- main x = [AppendChan stdout picture]
main = do main = do
argv <- getArgs argv <- getArgs
let let
...@@ -43,20 +41,7 @@ main = do ...@@ -43,20 +41,7 @@ main = do
_ -> 7 _ -> 7
putStr (picture n) 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 picture n = go n pic
go :: Int -> Csg -> [Char] go :: Int -> Csg -> [Char]
go n = (cdraw n) . quadoct . (octcsg n) 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