mirror of
https://github.com/github/semantic.git
synced 2024-12-27 17:05:33 +03:00
12 lines
245 B
Haskell
12 lines
245 B
Haskell
{-# LANGUAGE Strict #-}
|
|
module SES
|
|
( Comparable
|
|
, Myers.ses
|
|
) where
|
|
|
|
import Prologue
|
|
import qualified SES.Myers as Myers
|
|
|
|
-- | Edit constructor for two terms, if comparable. Otherwise returns Nothing.
|
|
type Comparable term = term -> term -> Bool
|