Roguelike in Haskell

I'm making one ^_^

Just to show off my elite level building skillz

*Level> pLevel $ foldObjs emptyLevel [(Way True 10, 23, 14), (Way False 5, 23, 9) ,(Way True 5, 15, 4), (Room (15,12), 1, 1), (Room (10, 7), 19, 3), (Room (40,7), 32, 10)]
                                                                               
 ---------------                                                               
 |.............|                                                               
 |.............|   ----------                                                  
 |.............#####........|                                                  
 |.............|   |........|                                                  
 |.............|   |........|                                                  
 |.............|   |........|                                                  
 |.............|   |........|                                                  
 |.............|   ----#-----                                                  
 |.............|       #        ----------------------------------------       
 |.............|       #        |......................................|       
 ---------------       #        |......................................|       
                       #        |......................................|       
                       ##########......................................|       
                                |......................................|       
                                ----------------------------------------       
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
*Level>

>>12
I have now written a level generator.  Please bear in mind that the pathfinding algorithm (esp from Data.Graph.Inductive) does not have a penalty for diagonal movement, and will thusly use it a lot.  Also, I don't think I have ensured that the corridors keep away from the walls of the rooms.

*Main> main
                                                                               
                                                                               
                ####                                          ####             
                #..#####                                     ##..##            
               ##...##.#####                                ##....#            
              ##...........#                               ##.#...#            
             ##.#..........#                              ##.##...#            
            ##.##########.##                             ##.###...#            
      #### ##.##        ##.##                           ##.## #...#            
     ##..###.##          ##.##                         ##.##  #####            
     #....#.##            ##.##                       ##.##                    
     #...#.##              ##.##                     ##.##                     
     #...###                ##.##                   ##.##                      
     #...#                   ##.##                 ##.##                       
     #####                    ##.##               ##.##                        
                               ##.##             ##.##                         
                                ##.##           ##.##                          
                                 ##.##         ##.##                           
                                  ##.##       ##.##                            
                                   ##.##     ##.##                             
                                    ##.##   ##.##                              
                                     ##.## ##.##                               
                                      ##.###.##                                
                                       ##...##