# [Haskell], 127 bytes

<!-- language-all: lang-hs -->

    import Data.Time.Clock
    import Data.Time.Calendar.WeekDate
    c(_,_,d)|d<7=d
    main=do t<-getCurrentTime;pure$!c.toWeekDate.utctDay$t

[Try it online!][TIO-jc1xh0mf] These are some impressive imports. Change `d<7` to e.g. `d/=5` to test failure on a Friday. Fails with the following exception: `Non-exhaustive patterns in function c`.

[Haskell]: https://www.haskell.org/
[TIO-jc1xh0mf]: https://tio.run/##Zcs7CsJAEADQfk8RIYVCnDaFSZUcQbAMw86QLPsL42whePdVi1S2D96GT88h1OrinkWbGRXh7iLDFLL15p8xcCIUeDD7L7Ox56VbOrq8aehHMhFdGik3OlxX1qmIcNJfve1FuD1Z0HxcKGp1xlertX4A "Haskell – Try It Online"