emptyFileScan :: Scanner Point Char
emptyFileScan = Scanner { scanInit = 0, 
                          scanRun = const [], 
                          scanLooked = id, 
                          scanEmpty = error "emptyFileScan: no scanEmpty" }
emptyFileScan :: Scanner Point Char
emptyFileScan = Scanner { scanInit = 0, 
                          scanRun = const [], 
                          scanLooked = id, 
                          scanEmpty = error "emptyFileScan: no scanEmpty" }
emptyFileScan = Scanner { scanInit = 0, 
                          scanRun = const [], 
                          scanLooked = id, 
                          scanEmpty = error "emptyFileScan: no scanEmpty" }