hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cosmetic change.

Browse Source
This commit is contained in:
Kazu Yamamoto 2012-02-14 16:19:48 +09:00
parent 416c901188
commit 1f4f7d768a
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Check.hs
View File

@ -13,8 +13,7 @@ import Types
----------------------------------------------------------------
checkSyntax :: Options -> String -> IO String
checkSyntax opt file =
unlines <$> check opt file
checkSyntax opt file = unlines <$> check opt file
----------------------------------------------------------------

4
Info.hs
View File

@ -7,12 +7,12 @@ import Control.Applicative
import CoreUtils
import Data.Function
import Data.Generics
import GHC.SYB.Utils
import Data.List
import Data.Maybe
import Data.Ord as O
import Desugar
import GHC
import GHC.SYB.Utils
import GHCApi
import qualified Gap
import HscTypes
@ -75,7 +75,7 @@ findExpr tcm line col =
f (L spn _) = isGoodSrcSpan spn && spn `spans` (line, col)
listifyStaged :: Typeable r => Stage -> (r -> Bool) -> GenericQ [r]
listifyStaged s p = everythingStaged s (++) [] ([] `mkQ` (\x -> if p x then [x] else []))
listifyStaged s p = everythingStaged s (++) [] ([] `mkQ` (\x -> [x | p x]))
getType :: GhcMonad m => TypecheckedModule -> LHsExpr Id -> m (Maybe (SrcSpan, Type))
getType tcm e = do