dbm-0.1.0.1: src/Utility.hs

-- | Global types and functions.
module Utility where

import Data.Time.Clock (UTCTime)
import Text.Read

data Migration =
  Migration { id_ :: Integer
            , timestamp :: UTCTime
            , mid :: Integer
            } deriving (Show)

parseMigrationId :: String -> Maybe Integer
parseMigrationId = readMaybe . takeWhile (/= '-')