Merge pull request knupfer#52 from TOSPIO/master

knupfer · knupfer · commit 73dbda903b3f · 2016-01-04T23:52:59.000+01:00
Fixed incorrect number of EVar type arguments
diff --git a/HaskellEmacs.hs b/HaskellEmacs.hs
@@ -212,7 +212,7 @@ fromName (S.Symbol str) = str
 fromName (S.Ident  str) = str
 
 exportFunction :: ExportSpec -> Maybe Name
-exportFunction (EVar _ qname)      = unQualifiedName qname
+exportFunction (EVar qname)      = unQualifiedName qname
 exportFunction (EModuleContents _) = Nothing
 exportFunction _                   = Nothing
 
