GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

PGF.Haskell: adding operators for selections from tables

Browse Source
This commit is contained in:
hallgren
2015-02-12 16:09:33 +00:00
parent efb1b540f4
commit 2b8fe8ea7a
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/runtime/haskell/PGF/Haskell.hs
View File

@@ -3,6 +3,7 @@
{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies, FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies, FlexibleInstances #-}
module PGF.Haskell where module PGF.Haskell where
import Control.Applicative((<$>),(<*>)) import Control.Applicative((<$>),(<*>))
import Control.Monad(join)
import Data.Char(toUpper) import Data.Char(toUpper)
import Data.List(isPrefixOf) import Data.List(isPrefixOf)
import qualified Data.Map as M import qualified Data.Map as M
@@ -65,4 +66,10 @@ to_R_s r = R_s (proj_s r)
infixr 5 +++ infixr 5 +++
xs +++ ys = (++) <$> xs <*> ys -- | Concatenation with variants
xs +++ ys = (++) <$> xs <*> ys
-- | Selection from tables with variants
t ! p = join (t p)
t !$ p = join (t <$> p)
t !* p = join (t <*> p)