diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-02 15:28:53 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-02 15:28:53 +0300 |
| commit | a553baf3a46e29d5137a8051838153c4fc83c6d5 (patch) | |
| tree | 24f8e09e004050ffd619a36f86e1163891fe83dc /src/Text/Pandoc/Readers/Odt/Arrows | |
| parent | faa1b364e24ac7cad592c6238445f347d0739c19 (diff) | |
| download | pandoc-a553baf3a46e29d5137a8051838153c4fc83c6d5.tar.gz | |
hlint
Diffstat (limited to 'src/Text/Pandoc/Readers/Odt/Arrows')
| -rw-r--r-- | src/Text/Pandoc/Readers/Odt/Arrows/State.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Odt/Arrows/State.hs b/src/Text/Pandoc/Readers/Odt/Arrows/State.hs index 06b2dcaaa..73bed545e 100644 --- a/src/Text/Pandoc/Readers/Odt/Arrows/State.hs +++ b/src/Text/Pandoc/Readers/Odt/Arrows/State.hs @@ -82,7 +82,7 @@ tryModifyState f = ArrowState $ \(state,a) instance Cat.Category (ArrowState s) where id = ArrowState id - arrow2 . arrow1 = ArrowState $ (runArrowState arrow2).(runArrowState arrow1) + arrow2 . arrow1 = ArrowState $ runArrowState arrow2 . runArrowState arrow1 instance Arrow (ArrowState state) where arr = ignoringState |