diff options
| author | Joris | 2019-09-05 20:46:36 +0200 |
|---|---|---|
| committer | Joris | 2019-09-05 20:46:36 +0200 |
| commit | 317e7b1e7319182e5caa5169119aea9fc8d660b6 (patch) | |
| tree | dc9f9c458c42d1e2c60a12ff55267e042c88f6ba /src/executable/haskell/Utils/Time.hs | |
| parent | 223ae6aa0b14c071d5719ada0cc6b43e9199a81b (diff) | |
| download | ad-listener-317e7b1e7319182e5caa5169119aea9fc8d660b6.tar.gz ad-listener-317e7b1e7319182e5caa5169119aea9fc8d660b6.tar.bz2 ad-listener-317e7b1e7319182e5caa5169119aea9fc8d660b6.zip | |
Enable the listener only during some hours
Diffstat (limited to 'src/executable/haskell/Utils/Time.hs')
| -rw-r--r-- | src/executable/haskell/Utils/Time.hs | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/src/executable/haskell/Utils/Time.hs b/src/executable/haskell/Utils/Time.hs deleted file mode 100644 index b6045a7..0000000 --- a/src/executable/haskell/Utils/Time.hs +++ /dev/null @@ -1,14 +0,0 @@ -module Utils.Time - ( getCurrentFormattedTime - ) where - -import Data.Text (Text) -import qualified Data.Text as T - -import Data.Time.Format (defaultTimeLocale, formatTime) -import Data.Time.LocalTime (getZonedTime) - -getCurrentFormattedTime :: IO Text -getCurrentFormattedTime = do - zonedTime <- getZonedTime - return (T.pack $ formatTime defaultTimeLocale "%Hh%M" zonedTime) |