github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

Pretend like we can make a module into a term.

Browse Source
This commit is contained in:
Rob Rix 2015-11-20 08:50:11 -08:00
parent 58cffa4e4c
commit bf2c4bc18b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/Main.hs
View File

@ -7,6 +7,7 @@ import Syntax
import Control.Comonad.Cofree import Control.Comonad.Cofree
import Control.Monad.Free import Control.Monad.Free
import Data.Map import Data.Map
import Data.Set
import Language.Haskell.Parser import Language.Haskell.Parser
import Language.Haskell.Syntax import Language.Haskell.Syntax
import System.Environment import System.Environment
@ -26,5 +27,9 @@ parseModuleFile file = do
contents <- readFile file contents <- readFile file
return $ parseModule contents return $ parseModule contents
moduleToTerm :: HsModule -> Term a Info
moduleToTerm (HsModule loc name exports imports declarations) = info :< Indexed [] where
info = Info Range { start = 0, end = 0 } Data.Set.empty
files (a : as) = (a, file as) where files (a : as) = (a, file as) where
file (a : as) = a file (a : as) = a