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 :: Options -> String -> IO String
checkSyntax opt file = checkSyntax opt file = unlines <$> check opt file
unlines <$> check opt file
---------------------------------------------------------------- ----------------------------------------------------------------

4
Info.hs
View File

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