Permalink
Browse files

layout bugfix

  • Loading branch information...
1 parent d78ab29 commit 7119eea9d6ef16e4f063e90f89203c5fff75cb81 @ekmett committed Sep 11, 2011
Showing with 3 additions and 3 deletions.
  1. +3 −3 Text/Trifecta/Parser/Layout/Monad.hs
@@ -61,9 +61,9 @@ instance MonadTokenParser m => MonadTokenParser (Layout m) where
whiteSpace = skipOptional $ try (() <$ layoutEq WhiteSpace <?> "")
nesting (Layout m) = disableLayout $ Layout (nesting m)
semi = getLayout layoutStack >>= \ stk -> case stk of
- IndentedLayout _:_ -> try (';' <$ layoutEq VirtualSemi <?> "virtual semi-colon")
- <|> lift semi
- _ -> lift semi
+ (DisabledLayout _:_) -> lift semi
+ _ -> try (';' <$ layoutEq VirtualSemi <?> "virtual semi-colon")
+ <|> lift semi
instance MonadTokenParser m => MonadLayoutParser (Layout m) where
getLayout l = Layout $ access l

0 comments on commit 7119eea

Please sign in to comment.