Permalink
Browse files

Whitespace

  • Loading branch information...
1 parent a2dc840 commit 85c0bd5f82e12bd8c5a827c6c32e59d4c27e5772 @dzhus committed Feb 29, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/Main.hs
View
@@ -58,7 +58,7 @@ newtype NullMonoid a = NullMonoid { getContainer :: a }
instance (Eq a, PossiblyNull a) => Monoid (NullMonoid a) where
mempty = NullMonoid Main.null
- (NullMonoid x) `mappend` (NullMonoid y) =
+ (NullMonoid x) `mappend` (NullMonoid y) =
NullMonoid (if x == Main.null then y else x)
@@ -76,7 +76,7 @@ makeUpdateAction newUser =
, userPassword = pick userPassword
, userRoles = pick userRoles
, userMeta = pick userMeta
- }
+ }
>> return ()

0 comments on commit 85c0bd5

Please sign in to comment.