acid-migrate:
* successfully forced evaluation
This commit is contained in:
		
							parent
							
								
									e6b91ce813
								
							
						
					
					
						commit
						93268c683c
					
				
					 1 changed files with 5 additions and 5 deletions
				
			
		| 
						 | 
				
			
			@ -261,10 +261,10 @@ main = do
 | 
			
		|||
 | 
			
		||||
convertEntries acid = do
 | 
			
		||||
    entries <- parseOldEntries
 | 
			
		||||
    let x = map (pasteToDB acid) entries
 | 
			
		||||
    let y = map forceHack x
 | 
			
		||||
    putStrLn $ show entries
 | 
			
		||||
    let r =  map forceHack entries
 | 
			
		||||
    rs <- sequence r
 | 
			
		||||
    putStrLn $ show rs
 | 
			
		||||
  where
 | 
			
		||||
    forceHack !x = do
 | 
			
		||||
        xy <- x
 | 
			
		||||
        return x
 | 
			
		||||
        xy <- pasteToDB acid x
 | 
			
		||||
        return $ show xy
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue