Specify associativity for column selector (!, !?) lower than Pi path

constructor (:*).
This commit is contained in:
Kei Hibino 2013-05-08 17:15:45 +09:00
parent 7d5946562c
commit 1644fee89a

View File

@ -118,6 +118,7 @@ p ! pi' = project $ Projection.pi p pi'
(!?) :: (PersistableWidth b, Projectable p) => Projection (Maybe a) -> Pi a b -> p (Maybe b)
p !? pi' = project $ Projection.piMaybe p pi'
infixl 8 !, !?
infixl 1 >*<