On Tue, May 22, 2012 at 4:13 PM, John Simon wrote:

...

data Lexer = Lexer String

makeLexer :: String -> Lexer makeLexer fn = Lexer fn

`makeLexer` is redundant. You can simply use `Lexer`. L.