cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix typo

This commit is contained in:
Joey Hess 2015-01-24 23:43:24 -04:00
parent 0ee04ecc43
commit a780cae441
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/Property.hs
View File

@ -43,8 +43,8 @@ flagFile' p getflagfile = adjustPropertySatisfy p $ \satisfy -> do
onChange onChange
:: (Combines (Property x) (Property y)) :: (Combines (Property x) (Property y))
=> Property x => Property x
=> Property y -> Property y
=> CombinedType (Property x) (Property y) -> CombinedType (Property x) (Property y)
onChange = combineWith $ \p hook -> do onChange = combineWith $ \p hook -> do
r <- p r <- p
case r of case r of