diff options
author | Leonid Onokhov <sopvop@gmail.com> | 2014-09-15 16:06:12 +0400 |
---|---|---|
committer | Leonid Onokhov <sopvop@gmail.com> | 2014-09-15 16:06:12 +0400 |
commit | 0e27763fe5e1df104c4714cc620541bb1e561f9d (patch) | |
tree | 8400b717ce5f4a9c065b884dc57eb92421d862e7 /src | |
parent | 81e1828137ac187a96173ebd905d9ddb996bdf04 (diff) | |
download | stylish-haskell-0e27763fe5e1df104c4714cc620541bb1e561f9d.tar.gz |
Fix for haskell-src-exts 0.16 release
Unfortunately makes it incompatible with earlier haskell-src-exts
package versions
Diffstat (limited to 'src')
-rw-r--r-- | src/Language/Haskell/Stylish/Step/Imports.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Language/Haskell/Stylish/Step/Imports.hs b/src/Language/Haskell/Stylish/Step/Imports.hs index e27a946..486fba7 100644 --- a/src/Language/Haskell/Stylish/Step/Imports.hs +++ b/src/Language/Haskell/Stylish/Step/Imports.hs @@ -59,7 +59,7 @@ 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.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) |