Skip to content

GitLab

Commit 8371c638 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Whitespace only

parent 2fe38b5f
Hide whitespace changes
Inline Side-by-side
compiler/basicTypes/SrcLoc.lhs
View file @ 8371c638
...@@ -136,7 +136,7 @@ srcLocCol _other = panic "srcLocCol: unknown col" ...@@ -136,7 +136,7 @@ srcLocCol _other = panic "srcLocCol: unknown col"
advanceSrcLoc :: SrcLoc -> Char -> SrcLoc advanceSrcLoc :: SrcLoc -> Char -> SrcLoc
advanceSrcLoc (SrcLoc f l _) '\n' = SrcLoc f (l + 1) 1 advanceSrcLoc (SrcLoc f l _) '\n' = SrcLoc f (l + 1) 1
advanceSrcLoc (SrcLoc f l c) _ = SrcLoc f l (c + 1) advanceSrcLoc (SrcLoc f l c) _ = SrcLoc f l (c + 1)
advanceSrcLoc loc _ = loc -- Better than nothing advanceSrcLoc loc _ = loc -- Better than nothing
\end{code} \end{code}
%************************************************************************ %************************************************************************
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment