starting to work on test stanzas
    
    
      
        Getty Ritter
        7 years ago
      
    
    
  
  
  
  
    
      
      
      
        
          | 79 | 79 | 
                    , ") where"
                  
                 | 
              
| 80 | 80 | 
                    ]
                  
                 | 
              
| 81 | 81 | 
                  
                  
                 | 
              
 | 82 | 
                
                  defaultTest :: T.Text -> T.Text
                  
                 | 
              
 | 83 | 
                
                  defaultTest mod = T.unlines $
                  
                 | 
              
 | 84 | 
                
                    [ "module " <> mod <> "(main) where" ]
                  
                 | 
              
 | 85 | 
                
                  
                  
                 | 
              
| 82 | 86 | 
                  defaultGitignore :: T.Text
                  
                 | 
              
| 83 | 87 | 
                  defaultGitignore = T.unlines
                  
                 | 
              
| 84 | 88 | 
                    [ "dist"
                  
                 | 
              
            
          
        
      
       
  
    
      
      
      
        
          | 27 | 27 | 
                    , _execDeps :: [T.Text]
                  
                 | 
              
| 28 | 28 | 
                    }
                  
                 | 
              
| 29 | 29 | 
                  
                  
                 | 
              
 | 30 | 
                
                  data TestDetails = TestDetails
                  
                 | 
              
 | 31 | 
                
                    { _testName :: T.Text
                  
                 | 
              
 | 32 | 
                
                    , _testDir  :: T.Text
                  
                 | 
              
 | 33 | 
                
                    , _testDeps :: [T.Text]
                  
                 | 
              
 | 34 | 
                
                    }
                  
                 | 
              
 | 35 | 
                
                  
                  
                 | 
              
| 30 | 36 | 
                  data Project = Project
                  
                 | 
              
| 31 | 37 | 
                    { _projectDetails :: ProjectDetails
                  
                 | 
              
| 32 | 38 | 
                    , _libDetails     :: Maybe LibraryDetails
                  
                 | 
              
            
              
                 | 
              
            
          | 37 | 43 | 
                  Lens.makeLenses ''ProjectDetails
                  
                 | 
              
| 38 | 44 | 
                  Lens.makeLenses ''LibraryDetails
                  
                 | 
              
| 39 | 45 | 
                  Lens.makeLenses ''ExecutableDetails
                  
                 | 
              
 | 46 | 
                
                  Lens.makeLenses ''TestDetails
                  
                 | 
              
| 40 | 47 | 
                  Lens.makeLenses ''Project
                  
                 |