Undo excision of streaming

This commit is contained in:
2022-08-22 11:25:45 +01:00
parent 947752b8d5
commit 6a46173fb4
3 changed files with 5 additions and 6 deletions
+2 -2
View File
@@ -12,7 +12,7 @@ import Control.Lens
import Data.Aeson
import Data.Aeson.TH
import Geometry.Data
import Streaming
--import Streaming
{-# INLINE shVfromList #-}
@@ -45,7 +45,7 @@ pairToSV = uncurry ShapeV
makeLenses ''ShapeV
makeLenses ''ShapeObj
type Shape' = Stream (Of ShapeObj) IO ()
--type Shape' = Stream (Of ShapeObj) IO ()
type Shape = [ShapeObj]