Allow for random composition of trees

2022-06-09 11:24:13 +01:00
parent 1f05c74abc
commit 1789a3785d
17 changed files with 103 additions and 88 deletions
@@ -20,7 +20,6 @@ import qualified Data.Set as S
 import Control.Monad.State
 --import Control.Monad.Loops
 import System.Random
-import Data.Tree
 glassLesson :: RandomGen g => State g (SubCompTree Room)
 glassLesson = do
    i <- takeOne [1,2,3]