diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2015-11-20 11:57:01 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2015-11-20 11:57:01 +0100 |
| commit | e5b0dd6c7bf91c61b134b6db3e77c0276aa5472b (patch) | |
| tree | f4e85419828d44a20ce564343fa30e0c1bf174ee /src | |
| parent | 9f099badbffd7332e0ea95c73b65c58094c688ad (diff) | |
| download | stylish-haskell-e5b0dd6c7bf91c61b134b6db3e77c0276aa5472b.tar.gz | |
Bump stylish-haskell to 1.17.00.5.14.4
Diffstat (limited to 'src')
| -rw-r--r-- | src/Language/Haskell/Stylish/Step/Imports.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Language/Haskell/Stylish/Step/Imports.hs b/src/Language/Haskell/Stylish/Step/Imports.hs index 486fba7..b58a8e3 100644 --- a/src/Language/Haskell/Stylish/Step/Imports.hs +++ b/src/Language/Haskell/Stylish/Step/Imports.hs @@ -59,8 +59,8 @@ compareImportSpecs :: H.ImportSpec l -> H.ImportSpec l -> Ordering compareImportSpecs = comparing key where key :: H.ImportSpec l -> (Int, Int, String) - key (H.IVar _ _ x) = let n = nameToString x in (1, operator n, n) - key (H.IAbs _ x) = (0, 0, nameToString x) + key (H.IVar _ x) = let n = nameToString x in (1, operator n, n) + key (H.IAbs _ _ x) = (0, 0, nameToString x) key (H.IThingAll _ x) = (0, 0, nameToString x) key (H.IThingWith _ x _) = (0, 0, nameToString x) |