facebook/duckling
1
1
Fork 0
mirror of https://github.com/facebook/duckling.git synced 2024-08-17 09:10:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix hanging ci (#626)

Browse Source 
Summary:
resolves https://github.com/facebook/duckling/issues/622

Pull Request resolved: https://github.com/facebook/duckling/pull/626

Reviewed By: stroxler

Differential Revision: D28842781

Pulled By: chessai

fbshipit-source-id: 3210bbf9eb76f21c90af86f6abdeac566fc86415
This commit is contained in:
chessai 2021-06-02 15:22:27 -07:00 committed by Facebook GitHub Bot
parent 5d8d99bbf4
commit 878beb7aa1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Duckling/Time/Helpers.hs
View File

@ -70,7 +70,6 @@ import Duckling.Types
, Rule
)
import qualified Duckling.Types as Types
import qualified Duckling.Duration.Types as TDuration
import qualified Duckling.Numeral.Types as TNumeral
import qualified Duckling.Ordinal.Types as TOrdinal
@ -209,13 +208,15 @@ takeNthClosest n cyclicPred basePred =
f t ctx = mth (n `max` 0) past future Nothing
where
(past, future) = runPredicate cyclicPred t ctx
against = fmap (negate . TTime.diffStartTime t)
mth m pa fu res
| n < 0 = res
| m < 0 = res
| otherwise = case comparing against x y of
GT -> mth (m-1) (tailSafe pa) fu x
_ -> mth (m-1) pa (tailSafe fu) y
where (x,y) = both listToMaybe (pa,fu)
against :: Maybe TTime.TimeObject -> Maybe Time.NominalDiffTime
against = fmap (negate . TTime.diffStartTime t)
tailSafe :: [a] -> [a]
tailSafe (_:xs) = xs
tailSafe [] = []