github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 18:06:14 +03:00
Code Issues Projects Releases Wiki Activity

fromMaybe.

Browse Source
This commit is contained in:
Rob Rix 2015-11-20 13:21:09 -08:00
parent 9cf6a823ef
commit 5c6a2ca1bc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/Main.hs
View File

@ -7,6 +7,7 @@ import Syntax
import Control.Comonad.Cofree
import Control.Monad.Free
import Data.Map
import Data.Maybe
import Data.Set
import Language.Haskell.Parser
import Language.Haskell.Syntax
@ -36,7 +37,7 @@ _info = Info Range { start = 0, end = 0 } Data.Set.empty
moduleToTerm :: HsModule -> Term Leaf Info
moduleToTerm (HsModule loc name exports imports declarations) = _info :< Indexed terms where
exportTerms = exportSpecToTerm <$> maybe [] id exports
exportTerms = exportSpecToTerm <$> fromMaybe [] exports
importTerms = importDeclarationToTerm <$> imports
declarationTerms = declarationToTerm <$> declarations
terms = exportTerms ++ importTerms ++ declarationTerms