diff options
Diffstat (limited to 'Assistant/Changes.hs')
| -rw-r--r-- | Assistant/Changes.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Changes.hs b/Assistant/Changes.hs index 3d3956899..9114f5124 100644 --- a/Assistant/Changes.hs +++ b/Assistant/Changes.hs @@ -14,7 +14,7 @@ import Utility.TSet import Data.Time.Clock {- Handlers call this when they made a change that needs to get committed. -} -madeChange :: FilePath -> ChangeType -> Assistant (Maybe Change) +madeChange :: FilePath -> ChangeInfo -> Assistant (Maybe Change) madeChange f t = Just <$> (Change <$> liftIO getCurrentTime <*> pure f <*> pure t) noChange :: Assistant (Maybe Change) |