import Data.Char
import Data.Collections
import Data.Collections.BaseInstances ()
+import Data.Convertible.Base
+import Data.Convertible.Instances.Time ()
import Data.Maybe
import Data.Monoid.Unicode
-import Data.Ratio
import Data.Text (Text)
import qualified Data.Text as T
import Data.Time
-import Data.Time.Clock.POSIX
import Network.URI
import Prelude hiding (last, mapM, null, reverse)
import Prelude.Unicode
import System.Directory
-import System.Time (ClockTime(..))
-- |'Host' represents an IP address or a host name in an URI
-- authority.
-- |Get the modification time of a given file.
getLastModified ∷ FilePath → IO UTCTime
-getLastModified = (clockTimeToUTC <$>) ∘ getModificationTime
- where
- clockTimeToUTC ∷ ClockTime → UTCTime
- clockTimeToUTC (TOD sec picoSec)
- = posixSecondsToUTCTime ∘ fromRational
- $ sec % 1 + picoSec % (1000 ⋅ 1000 ⋅ 1000 ⋅ 1000)
+getLastModified = (cs <$>) ∘ getModificationTime