Skip to content

Commit

Permalink
SysCmd: older base does not export Foldable
Browse files Browse the repository at this point in the history
  • Loading branch information
juhp committed Mar 13, 2017
1 parent f156951 commit 7d1c538
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions src/SysCmd.hs
Expand Up @@ -162,5 +162,9 @@ s +-+ t | last s == ' ' = s ++ t
| head t == ' ' = s ++ t
s +-+ t = s ++ " " ++ t

#if (defined(MIN_VERSION_base) && MIN_VERSION_base(4,8,2))
notNull :: Foldable t => t a -> Bool
#else
notNull :: [a] -> Bool
#endif
notNull = not . null

0 comments on commit 7d1c538

Please sign in to comment.