@@ -104,7 +104,8 @@ skipEndline = option Space endline
104indentSpaces = do
104indentSpaces = do
105 state <- getState
105 state <- getState
106 let tabStop = stateTabStop state
106 let tabStop = stateTabStop state
107− oneOfStrings [ "\t", (replicate tabStop ' ') ] <?> "indentation"
107+ count tabStop (char ' ') <|>
108+ (do{skipNonindentSpaces; string "\t"}) <?> "indentation"
109skipNonindentSpaces = do
110skipNonindentSpaces = do
110 state <- getState
111 state <- getState