Merge tag 'v0.11.0.0'

v0.11.0.0

- 0.11.0.0 (2020-02-24)
    * Disable record formatting by default
    * Allow more customization for record formatting (by Maxim Koltsov)
    * Disable formatting of data types without records (by Maxim Koltsov)
    * Add `-r` flag to recursively find Haskell files (by Akos Marton)

1 files changed, 7 insertions, 7 deletions

diff --git a/lib/Language/Haskell/Stylish/Step/UnicodeSyntax.hs b/lib/Language/Haskell/Stylish/Step/UnicodeSyntax.hs
index 01e29e8..266e8e5 100644
--- a/lib/Language/Haskell/Stylish/Step/UnicodeSyntax.hs
+++ b/lib/Language/Haskell/Stylish/Step/UnicodeSyntax.hs
@@ -39,12 +39,12 @@ replaceAll :: [(Int, [(Int, String)])] -> [Change String]
 replaceAll = map changeLine'
   where
     changeLine' (r, ns) = changeLine r $ \str -> return $
-        flip applyChanges str
+        applyChanges 
             [ change (Block c ec) (const repl)
             | (c, needle) <- sort ns
             , let ec = c + length needle - 1
             , repl <- maybeToList $ M.lookup needle unicodeReplacements
-            ]
+            ] str
 
 
 --------------------------------------------------------------------------------
@@ -104,15 +104,15 @@ between (startRow, startCol) (endRow, endCol) needle =
 
 
 --------------------------------------------------------------------------------
-step :: Bool -> Step
-step = makeStep "UnicodeSyntax" . step'
+step :: Bool -> String -> Step
+step = (makeStep "UnicodeSyntax" .) . step'
 
 
 --------------------------------------------------------------------------------
-step' :: Bool -> Lines -> Module -> Lines
-step' alp ls (module', _) = applyChanges changes ls
+step' :: Bool -> String -> Lines -> Module -> Lines
+step' alp lg ls (module', _) = applyChanges changes ls
   where
-    changes = (if alp then addLanguagePragma "UnicodeSyntax" module' else []) ++
+    changes = (if alp then addLanguagePragma lg "UnicodeSyntax" module' else []) ++
         replaceAll perLine
     perLine = sort $ groupPerLine $
         typeSigs module' ls ++