github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-04 13:34:31 +03:00
Code Issues Projects Releases Wiki Activity

Slightly increase laziness.

Browse Source
This commit is contained in:
Rob Rix 2018-07-02 18:42:36 -04:00
parent 8ca986756a
commit 8a4b590511
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Assigning/Assignment/Deterministic.hs
View File

@ -49,7 +49,7 @@ type Cont symbol a = Source -> State symbol -> [IntSet] -> Either (Error (Either
combine :: Nullable symbol a -> IntSet -> IntSet -> IntSet
combine (Nullable _) s1 s2 = s1 <> s2
combine NotNullable s1 _ = s1
combine _ s1 _ = s1
choose :: Enum symbol
=> Nullable symbol a
@ -147,7 +147,7 @@ instance Alternative (Nullable symbol) where
empty = NotNullable
Nullable a <|> _ = Nullable a
NotNullable <|> b = b
_ <|> b = b
data State symbol = State