Permalink
Browse files

tail.tail is really a drop 2

  • Loading branch information...
1 parent ad49334 commit 44b1367b1d9316a4bafa361f771bfbb48098eacf Mihai Maruseac committed Feb 27, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/HaCoTeB/Output/TextOutput.hs
@@ -15,7 +15,7 @@ textOutput (AST a) = repr a
Ignore everything, print only the text.
-}
repr :: [Section] -> String
-repr = tail . tail . concatMap repr'
+repr = drop 2 . concatMap repr'
where
repr' (TextSection s) = '\n' : '\n' : repr'' s
repr' (CodeSection s) = '\n' : '\n' : repr'' s

0 comments on commit 44b1367

Please sign in to comment.