Skip to content

Commit

Permalink
Further clarification
Browse files Browse the repository at this point in the history
  • Loading branch information
mschristiansen committed Oct 25, 2018
1 parent 78c1544 commit ae79529
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Data/Date.purs
Original file line number Diff line number Diff line change
Expand Up @@ -90,8 +90,8 @@ weekday = unsafePartial \(Date y m d) ->
in if n == 0 then fromJust (toEnum 7) else fromJust (toEnum n)

-- | Adjusts a date with a Duration in days. The number of days must
-- | fall within the valid range for an `Int` type otherwise `Nothing`
-- | is returned.
-- | already be an integer and fall within the valid range of values
-- | for the Int type.
adjust :: Days -> Date -> Maybe Date
adjust (Days n) date = fromNumber n >>= flip adj date
where
Expand Down

0 comments on commit ae79529

Please sign in to comment.