Excise streaming

This commit is contained in:
2022-08-22 11:23:19 +01:00
parent 311fc9c623
commit 947752b8d5
9 changed files with 2 additions and 731 deletions
-3
View File
@@ -9,7 +9,6 @@ import Control.Lens
import Data.Aeson
import Data.Aeson.TH
import Geometry.Data
import Streaming
data Verx = Verx
{ _vxPos :: !Point3
@@ -52,8 +51,6 @@ textNum = ShadNum 3
arcNum = ShadNum 4
ellNum = ShadNum 5
type Picture' = Stream (Of Verx) IO ()
type Picture = [Verx]
flatV2 :: V2 a -> [a]